// JOB   SG$EMJCL                                                       SG$00010
// DVC 20  // LFD PRNTR                                                 SG$00020
// USESYS                                                               SG$00030
// DVC 51  // VOL &OS3REL  // LBL $Y$GEN  // LFD $Y$GEN,0               SG$00040
// OPTION SUB                                                           SG$00050
// IF ('&P01H' EQ '')PHEND                                              SG$00060
// DVC 40                                                               SG$00070
// LFD PUNCH                                                            SG$00080
// OPTION JOBDUMP                                                       SG$00090
// EXEC   LIBS                                                          SG$00100
/$                                                                      SG$00110
         FIL   D1=$Y$GEN                                                SG$00120
         COP.PD  D1,S,&P01H                                             SG$00130
/*                                                                      SG$00140
//PHEND NOP                                                             SG$00150
/&                                                                      SG$00160
