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