// JOB VSB009
// GBL FILE=ISAM
// GBL F=ISAM
// IF    ('&F' EQ 'ISAM')SISAM
// OPR '*****VSB009**--VSRPG3-  MATCH IRAM-NO-INDEX/IRAM-INDEX'
// OPR '                        FILES WITH RPG PROG.'
// GO    AFT
//SISAM  NOP
// OPR '*****VSB009**--VSRPG3-  MATCH SAM/ISAM FILES WITH RPG PROG.'
//AFT    NOP
// OPR '*****VSB009A -BEGIN TO COMPILE --VSRPG3--'
// DVC 20  // LFD PRNTR
// 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                                   VSRPG3
0101 F* THIS PROGRAM MATCHED THE RPG-SAM OR RPG-IRAM-NO-INDEX             VSRPG3
0102 F* FILE WITH THE RPG-ISAM OR RPG-IRAM-INDEX FILE USING               VSRPG3
0103 F* THE CHAINING TECHNIQUE OF RPG-                                    VSRPG3
01031F* BOTH RECORD ARE PRINTED                                           VSRPG3
0104 F*                                                                   VSRPG3
0105 FSEQFILE IPEAF 192  96            DISC         S                     VSRPG3
0106 FISAMFIL IC  F 192  96R04AI    77 DISC         S                     VSRPG3
0107 FLIST    O   F     120     OF     PRINTER                            VSRPG3
0301 ISEQFILE AA  01                                                      VSRPG3
0302 I                                        1  96 SEQREC                VSRPG3
0303 I                                       77  80 CUSTS   M1            VSRPG3
0306 IISAMFIL BB  02                                                      VSRPG3
0307 I                                        1  96 ISREC                 VSRPG3
0308 I                                       77  80 CUSTI                 VSRPG3
0320 C   01      CUSTS     CHAINISAMFIL              20                   VSRPG3
0401 OLIST    H  107   1P                                                 VSRPG3
0402 O       OR        OF                                                 VSRPG3
04021O                                   23 '***************JOB-----'     VSRPG3
04022O                                   44 'VSB009   -RPG PROGRAM'       VSRPG3
04023O        H  2     1P                                                 VSRPG3
04024O       OR        OF                                                 VSRPG3
04025O                                   23 '***************PROGRAM-'     VSRPG3
04026O                                   45 'VSRPG3   -MATCHES FILE'      VSRPG3
04027O        H  2     1P                                                 VSRPG3
04028O       OR        OF                                                 VSRPG3
0403 O                                   45 '** CHAINED RECORDS **'       VSRPG3
0405 O        D  1    N20N1PNU1                                           VSRPG3
0406 O                                    6 '*SAM *'                      VSRPG3
0407 O                         SEQREC   112                               VSRPG3
04071O        D  1    N20N1P U1                                           VSRPG3
04072O                                   16 '*IRAM NO INDEX *'            VSRPG3
04073O                         SEQREC   112                               VSRPG3
0408 O        D  2    N20N1PNU1                                           VSRPG3
0409 O                                    7 '*ISAM *'                     VSRPG3
0410 O                         ISREC    112                               VSRPG3
04101O        D  2    N20N1P U1                                           VSRPG3
04102O                                   13 '*IRAM INDEX *'               VSRPG3
04103O                         ISREC    112                               VSRPG3
0411 O        D  2     01 20                                              VSRPG3
0412 O                                   10 '*NO-MATCH*'                  VSRPG3
0413 O                         SEQREC   112                               VSRPG3
/*
// OPR '*****VSB009B -BEGIN TO LINK AND CATALOG --VSRPG3--'
// DVC 20  // LFD PRNTR
// DVC 50  // VOL SDIVSB  // LBL VSBLIB  // LFD LOAD
// WORK1    DVC=50,VOL=SDIVSB
// EXEC LNKEDT
/$
 LOADM VSRPG3
 LINKOP OUT=LOAD
 INCLUDE VSRPG3
/*
// OPR '*****VSB009C -BEGIN TO EXECUTE --VSRPG3--'
// DVC 20  // LFD LIST
// DVC 50  // VOL SDIVSB  // LBL VSBLIB  // LFD LOAD,1
// IF    ('&F' EQ 'ISAM')ISAM
// DVC 50 // VOL SDIVSB  // LBL RPGIRAMINDEX    // LFD ISAMFIL
// DVC 50 // VOL SDIVSB  // LBL RPGIRAMNOINDEX  // LFD SEQFILE,1
// SET   UPSI,10000000
// GO    POI
//ISAM   NOP
// DVC 50  // VOL SDIVSB  // LBL RPGSAM   // LFD SEQFILE,1
// DVC 50  // VOL SDIVSB  // LBL RPGISAM   // LFD ISAMFIL
//POI    NOP
// EXEC VSRPG3,LOAD
// OPR '*****VSB009C -END --VSRPG3--'
// IF    ('&F' EQ 'ISAM')KISAM
// OPR '*****VSB009**-FILES MATCHED IRAM-NO-INDEX/IRAM-INDEX'
// GO    IVAN
//KISAM  NOP
// OPR '*****VSB009**-FILES MATCHED:  RPG-SAM/RPG-ISAM'
//IVAN   NOP
/&
