// JOB VSB007
// GBL   C=80
// GBL   TY=READER
// GBL   LU=30
// GBL FILE=SAM
// GBL F=SAM
// IF    ('&C' EQ '80')C80
//LU     JSET 34
//C80    NOP
// IF    ('&F' EQ 'SAM')SSAM
// OPR '*****VSB007**--VSRPG1-  TEST IRAM FILE WITH RPG PROGRAM'
// GO    AFT
//SSAM   NOP
// OPR '*****VSB007**--VSRPG1-  TEST SAM FILES WITH RPG PROGRAM'
//AFT    NOP
// OPR '*****VSB007A -BEGIN TO COMPILE --VSRPG1--'
// DVC 20  // LFD PRNTR
// OPTION  SUB
// WORK1    DVC=50,VOL=SDIVSB
// WORK2 DVC=50,VOL=SDIVSB
// OPTION SYSDUMP
// EXEC RPGII
// IF  ('&F' EQ 'SAM')FSAM
//FILE JSET &F
// PARAM MOD=IRAM
//FSAM NOP
/$
     H D      1                       B                                   VSRPG1
0101 F* THIS PROGRAM LOADS A RPG SAM OR IRAM FILE TO DISC                 VSRPG1
0102 F*                                                                   VSRPG1
0103 FCARDIN  IPEAF  &C  &C            &TY                                VSRPG1
0104 FDISCOUT O   F 192  96            DISC         S                     VSRPG1
0105 FPRNTR   O   F     120     OF     PRINTER                            VSRPG1
0301 ICARDIN  AA  01                                                      VSRPG1
0302 I                                        1  &C IMAGE                 VSRPG1
0303 I                                       77  80 CUSTNO  M1            VSRPG1
03031C                     MOVELIMAGE     WORK   96                       VSRPG1
0320 OPRNTR   H  107   1P                                                 VSRPG1
0321 O       OR        OF                                                 VSRPG1
0322 O                                   23 '***************JOB-----'     VSRPG1
0323 O                                   44 'VSB007   -RPG PROGRAM'       VSRPG1
0324 O        H  2     1P                                                 VSRPG1
0325 O       OR        OF                                                 VSRPG1
0326 O                                   23 '***************PROGRAM-'     VSRPG1
0327 O                                   46 'VSRPG1   -LOAD RPG FILE'     VSRPG1
0328 O        D  1     01                                                 VSRPG1
0329 O                         WORK      96                               VSRPG1
0401 ODISCOUT D        01                                                 VSRPG1
0402 O                         WORK      96                               0SRPG1
/*
// OPR '*****VSB007B -BEGIN TO LINK AND CATALOG --VSRPG1--'
// DVC 20  // LFD PRNTR
// DVC 50  // VOL SDIVSB  // LBL VSBLIB  // LFD LOAD
// WORK1    DVC=50,VOL=SDIVSB
// EXEC LNKEDT
/$
 LOADM VSRPG1
 LINKOP OUT=LOAD
 INCLUDE VSRPG1
/*
// OPR '*****VSB007C -BEGIN TO EXECUTE --VSRPG1--'
// DVC 20  // LFD PRNTR
// DVC &LU     // LFD CARDIN
// DVC 50  // VOL SDIVSB  // LBL VSBLIB  // LFD LOAD
// IF  ('&F' EQ 'SAM')SAM
// DVC 50   // VOL SDIVSB
// LBL RPGIRAMNOINDEX  // LFD DISCOUT,,INIT
// GO POI
//SAM NOP
// DVC 50  // VOL SDIVSB  // LBL RPGSAM   // LFD DISCOUT,,INIT
//POI NOP
// EXEC VSRPG1,LOAD
// OPR '*****VSB007C -END --VSRPG1--'
// IF    ('&F' EQ 'SAM')KSAM
// OPR '*****VSB007**-DISC LOADED VSN=SDIVSB FNAME=RPGIRAMNOINDEX'
// GO    IVAN
//KSAM   NOP
// OPR '*****VSB007**-DISC LOADED VSN=SDIVSB FNAME=RPGSAM'
//IVAN   NOP
/&
