* $$ JOB JNM=VSEICCF,CLASS=0                                            00000001
* $$ LST CLASS=P                                                        00000002
// JOB VSEICCF         SUBROUTINE TO ACCESS ICCF LIBRARY                00000003
// OPTION LOG                                                           00000004
// EXEC LIBR,PARM='MSHP;ACC S=PRD2.BTAM'                                00000005
   CATAL VSEICCF.A        REP=YES                                       00000006
         PUNCH ' CATALR VSEICCF '                                       00000007
         PRINT NOGEN                                                    00000008
* --------------------------------------------------------------------* 00000009
* Based on program DSLISCAN  (VSE User Examples, Volume 2).           * 00000010
* This program uses an interface to DTSUTIL to allow read members     * 00000011
* from the VSE/ICCF library.                                          * 00000012
*                                                                     * 00000013
* Changed by Gustavo Torres      clgtorres@gmail.com                  * 00000014
* --------------------------------------------------------------------* 00000015
VSEICCF  START 0                                                        00000016
         USING *,R15                                                    00000017
         STM   R14,R12,12(R13)         STORE REGS IN SAVEAREA           00000018
         DROP  R15                     R15 TO BE USED BY MACROS         00000019
         USING VSEICCF,R9              R9 NOW BASE REGISTER             00000020
         LR    R9,R15                  ESTABLISH ADDRESSABILITY         00000021
         ST    R13,SAVEAREA+4          STORE MAIN PGM SAVEAREA          00000022
         LR    R10,R13                 SAVE R13                         00000023
         LA    R13,SAVEAREA            SAVE AREA FOR THIS TASK          00000024
         ST    R13,8(R10)              STORE EXIT SAVE ADDRESS          00000025
* --------------------------------------------------------------------* 00000026
*        SET UP FIELDS NEEDED FOR VSEICCF                             * 00000027
* --------------------------------------------------------------------* 00000028
         L     R2,0(R1)                PARMS ADDRESS                    00000029
         ST    R2,PARMADR              PARMS ADDRESS                    00000030
         MVC   IPARMS,0(R2)            MOVE PARMS                       00000031
         XC    INORL,INORL             CLEAR NO.RECORDS                 00000032
         MVC   NEXTRADR,IBUFADR        RECORD BUFFER ADDRESS            00000033
* --------------------------------------------------------------------* 00000034
IUI00010 NOP   IUI10000                NEXT DTSUTIL COMMAND             00000035
         OI    IUI00010+1,X'F0'        BYPASS DTSUTIL LOAD              00000036
*                                                                       00000037
         CDLOAD DTSUTIL                                                 00000038
         LR    R4,R1                   BEGIN SCAN ADDRESS               00000039
         LR    R6,R1                   SAVE ENTRY POINT                 00000040
         A     R1,=F'12000'            SET                              00000041
         ST    R1,IUI00180                SCAN LIMIT                    00000042
*                                  BOUCLE                               00000043
IUI00040 EQU   *                   DE                                   00000044
         CLC   =X'0A02',0(R4)      RECHERCHE                            00000045
         BNE   IUI00080            DES                                  00000046
         LR    R1,R4               SVC 2                                00000047
         SH    R1,=H'8'            D'OPEN                               00000048
         CLC   =X'4500',0(R1)                                           00000049
         BNE   IUI00080                                                 00000050
         LA    R1,4(R1)                                                 00000051
         CLI   0(R1),X'00'         ET DE                                00000052
         BNE   IUI00080            CLOSE                                00000053
         ICM   R1,15,0(R1)         SUR                                  00000054
         LTR   R1,R1               LES 3 DTF'S                          00000055
         BZ    IUI00080                                                 00000056
*                                                                       00000057
         MVC   IUI0MSG1,=C'40'                                          00000058
         CLC   22(7,R1),IJSYSIN+22          IJSYSIN ?                   00000059
         BE    IUI00110                                                 00000060
         CLC   22(7,R1),IJSYSLS+22          IJSYSLS ?                   00000061
         BE    IUI00120                                                 00000062
         CLC   22(7,R1),IJSYSPH+22          IJSYSPH ?                   00000063
         BE    IUI00130                                                 00000064
*                                                                       00000065
IUI00080 EQU   *                                                        00000066
         LA    R4,2(R4)            SCAN LIMIT                           00000067
         C     R4,IUI00180         NEAR DTSUTIL HIGH STORAGE            00000068
         BL    IUI00040      OU A CELLE DU MODULE IJJFCBID              00000069
         CLI   IUISW,C'7'                                               00000070
         BE    IUI00150                                                 00000071
         MVC   IUI0MSG1,=C'30'  PREPARATION                             00000072
         MVI   IUI0MSG2,C'0'     DU MESSAGE                             00000073
         MVC   IUI0MSG2+1(1),IUISW                                      00000074
*                                                                       00000075
IUI00090 EQU   *                   ET ENVOI                             00000076
         LA    R15,IUI00MSG                                             00000077
         LA    R0,L'IUI00MSG                                            00000078
         L     R1,=A(IJWTOMOD)                                          00000079
         BAL   R14,24(R1)                                               00000080
         DUMP                                                           00000081
*                                                                       00000082
IUI00110 EQU   *                   CAS DU SYSIPT                        00000083
         TM    IUISW,X'01'         DEJA TRAITE ?                        00000084
         BO    IUI00145                                                 00000085
         OI    IUISW,X'01'                                              00000086
         MVC   IUI0MSG2,=C'10'                                          00000087
         MVC   IUI00390+1(3),65(R1)       EOF ADDR SAUVEE               00000088
         TM    44(R1),X'10'               2 I/O AREAS ?                 00000089
         BZ    IUI00140                   NON=OK                        00000090
         B     IUI00090                                                 00000091
*                                                                       00000092
IUI00120 EQU   *                   CAS DU SYSLST                        00000093
         TM    IUISW,X'02'         DEJA TRAITE ?                        00000094
         BO    IUI00145                                                 00000095
         OI    IUISW,X'02'                                              00000096
         MVC   IUI0MSG2,=C'20'                                          00000097
         TM    44(R1),X'10'               2 I/O AREAS ?                 00000098
         BZ    IUI00140                   NON=OK                        00000099
         B     IUI00090                                                 00000100
*                                                                       00000101
IUI00130 EQU   *                   CAS DU SYSPCH                        00000102
         TM    IUISW,X'04'         DEJA TRAITE ?                        00000103
         BO    IUI00145                                                 00000104
         OI    IUISW,X'04'                                              00000105
         MVC   IUI0MSG2,=C'40'                                          00000106
         TM    44(R1),X'10'               2 I/O AREAS ?                 00000107
         BZ    IUI00090                   NON=PAS BON                   00000108
         CLI   84(R1),X'41'         INSTRUCTION "LA" POUR CHARGER       00000109
         BNE   IUI00090                                    IOREG ?      00000110
*                                                                       00000111
IUI00140 EQU   *                                                        00000112
         MVC   IUI0MSG1(2),=C'45'                                       00000113
         CLI   20(R1),X'33'        TYPE=DTFDI ?                         00000114
         BNE   IUI00090                                                 00000115
         MVC   IUI00180+1(3),17(R1)    LIMITE DE BOUCLE                 00000116
         MVC   17(3,R1),IUI00190+1     REMPLACEE PAR MON MODULE A MO    00000117
*                                                                       00000118
IUI00145 EQU   *                                                        00000119
         MVC   0(2,R4),=X'0700'     REMPLACER CE SVC2 PAR UN NOP        00000120
         B     IUI00080                                                 00000121
*                                                                       00000122
IUI00150 EQU   *                                                        00000123
         OPEN  IJSYSLS                                                  00000124
         BR    R6                   GO TO DTSUTIL                       00000125
*                                                                       00000126
IUI00180 DS    F                    SCAN LIMIT                          00000127
IUI00190 DC    A(IUI00200)                                              00000128
IUI00MSG DC    C'VSEICCF    **** ERREUR DE TYPE     '                   00000129
         ORG   *-4                                                      00000130
IUI0MSG1 DS    CL2                                                      00000131
IUI0MSG2 DS    CL2                                                      00000132
IUISW    DC    C'0'                                                     00000133
*                1=IJSYSIN                                              00000134
*                2=IJSYSLS                                              00000135
*                4=IJSYSPH                                              00000136
         LTORG                                                          00000137
IUI0SAVA DS    9D                                                       00000138
IJSYSIN  DTFDI DEVADDR=SYSIPT,EOFADDR=IUI00330,RECSIZE=81,             *00000139
               IOAREA1=IUIINA                                           00000140
IJSYSLS  DTFDI DEVADDR=SYSLST,IOAREA1=IUILSA,RECSIZE=121                00000141
IJSYSPH  DTFDI DEVADDR=SYSPCH,IOAREA1=IUIPHA,RECSIZE=81                 00000142
*                                                                       00000143
* --------------------------------------------------------------------  00000144
*                                                                       00000145
IUI00200 DS    0D               JE RECOIS LA MAIN ICI CHAQUE FOIS       00000146
         DROP  R9                                                       00000147
         USING *,R15            QUE DTSUTIL FAIT UN GET SUR IJSYSIN     00000148
         B     IUI00230         OU UN PUT SUR IJSYSPH OU IJSYSLS        00000149
         B     IUI00230                                                 00000150
         B     IUI00210                                                 00000151
         B     IUI00220                                                 00000152
         B     IUI00230                                                 00000153
         B     IUI00230                                                 00000154
         B     IUI00230                                                 00000155
*                                                                       00000156
IUI00210 EQU   *                                                        00000157
         STM   R0,R14,IUI00370     SAUVER TOUS LES REGISTRES            00000158
         L     R2,=A(IJSYSIN)                                           00000159
         CLC   22(7,R1),22(R2)                                          00000160
         BE    IUI00240                                                 00000161
         LM    R0,R14,IUI00370     RESTAURER LES REGISTRES              00000162
         B     IUI00230                                                 00000163
*                                                                       00000164
IUI00220 EQU   *                                                        00000165
         STM   R0,R14,IUI00370     SAUVER TOUS LES REGISTRES            00000166
         L     R2,=A(IJSYSLS)                                           00000167
         CLC   22(7,R1),22(R2)                                          00000168
         BE    IUI00240                                                 00000169
         L     R2,=A(IJSYSPH)                                           00000170
         CLC   22(7,R1),22(R2)                                          00000171
         BE    IUI00240                                                 00000172
         LM    R0,R14,IUI00370     RESTAURER LES REGISTRES              00000173
*                                                                       00000174
IUI00230 EQU   *                                                        00000175
         STM   R0,R14,IUI00370     SAUVER TOUS LES REGISTRES            00000176
         LA    R3,IUI00250         DE DTSUTIL                           00000177
         LA    R4,IUI01MSG                                              00000178
*                                                                       00000179
         MVI   IUILSA,C'1'                                              00000180
         MVI   IUILSA+1,C' '                                            00000181
         MVC   IUILSA+2(119),IUILSA+1                                   00000182
         MVC   IUILSA+1(120),0(R4)                                      00000183
         PUT   IJSYSLS                                                  00000184
         LR    R15,R4                                                   00000185
         LA    R0,80                                                    00000186
         L     R1,=A(IJWTOMOD)                                          00000187
         BAL   R14,24(R1)                                               00000188
         B     IUI00330             GO EOF                              00000189
*                                                                       00000190
         LTORG                                                          00000191
IUI01MSG DC    CL120'VSEICCF    **** ERREUR D''AIGUILLAGE.'             00000192
*                                                                       00000193
* --------------------------------------------------------------------  00000194
*                                                                       00000195
IUI00240 DS    0H                                                       00000196
         BALR  R3,0                                                     00000197
         DROP  R15                                                      00000198
         USING *,R3                                                     00000199
*                                                                       00000200
IUI00250 EQU   *                                                        00000201
         L     R13,=A(IUI0SAVA)                                         00000202
         MVC   IUI00380+1(3),17(R2)  R15=A(DIMOD) REEL                  00000203
*                                                                       00000204
*    DEBRANCHEMENT . DE QUEL APPEL S'AGIT-IL ?                          00000205
*                                                                       00000206
         SR    R4,R4             RETROUVER                              00000207
         ICM   R4,7,113(R1)      L'I/O AREA                             00000208
         CLI   27(R1),C'I'         EST-CE UN GET SUR IJSYSIN ?          00000209
         BE    IUIGET                                                   00000210
         ICM   R4,7,121(R1)      L'I/O AREA                             00000211
         CLI   27(R1),C'L'         EST-CE UN PUT SUR IJSYSLS ?          00000212
         BE    IUIPUT                                                   00000213
         IC    R4,85(R1)             IOREG                              00000214
         N     R4,=F'240'           CLEAR OTHER BITS                    00000215
         SRL   R4,2                 IOREG NUMBER X 4                    00000216
         L     R4,IUI00370(R4)      LOAD IOREG = ADDRESS IOAREA         00000217
         B     IUIPUT              C'EST UN PUT SUR IJSYSPH             00000218
*                                                                       00000219
RETOUR   EQU   *                   RETOUR A DTSUTIL SANS ALLER          00000220
         LM    R0,R15,IUI00370     AU DIMOD                             00000221
         BR    R14                                                      00000222
*                                                                       00000223
IUI00330 DS    0H                  FIN DE SYSIPT                        00000224
         BAL   R14,FINIPT          AVEC DEBRANCHEMENT                   00000225
*                                                                       00000226
         CLOSE IJSYSLS                                                  00000227
*                                  ALLER A LA ROUTINE                   00000228
         L     R15,IUI00380        DE FIN DE SYSIPT                     00000229
         L     R14,IUI00390        DE DTSUTIL                           00000230
         LM    R0,R13,IUI00370     *                                    00000231
         BR    R14                 *                                    00000232
*                                                                       00000233
SAVEAREA DS    18F       VSEICCF SAVEAREA                               00000234
IUI00370 DS    16F       SAUVEGARDE DES REG. DE DTSUTIL                 00000235
         ORG   *-4                                                      00000236
IUI00380 DS    F         ADRESSE DIMOD                                  00000237
IUI00390 DC    F'0'      ADRESSE ROUTINE FIN DE SYSIPT DE DTSUTIL       00000238
IUIINA   DC    CL81' '                                                  00000239
IUIPHA   DC    CL81' '                                                  00000240
IUILSA   DC    CL121' '                                                 00000241
         DS    0D                                                       00000242
*                                                                       00000243
*       JE RECOIS LA MAIN ICI CHAQUE FOIS QUE DTSUTIL FAIT UN GET       00000244
*                                                                       00000245
IUI10000 EQU   *                                                        00000246
         LM    R14,R12,12(R13)     RESTORE REGS FROM SAVEAREA           00000247
         B     IUI10010                                                 00000248
IUIGET   NOP   RETURN                                                   00000249
         OI    IUIGET+1,X'F0'      FORCE RETURN TO MAIN PGM             00000250
IUI10010 EQU   *                                                        00000251
         L     R1,IUI00370+4       RETROUVER IJSYSIN DE DTSUTIL         00000252
         SR    R4,R4                                                    00000253
         ICM   R4,7,113(R1)        R4 = I/O AREA OF DTSUTIL             00000254
         MVI   0(R4),C' '          CLEAR                                00000255
         MVC   1(79,R4),0(R4)           I/O AREA                        00000256
         MVC   0(L'IPARM,R4),IPARM <=== PRTPCH M(LLL MMMMMMMM)          00000257
*                              OR  <=== DSERV  L(LLL) SORTED            00000258
         MVI   SWFULL,C'0'         SETON SW                             00000259
         B     RETOUR              RETURN TO DTSUTIL                    00000260
* --------------------------------------------------------------------  00000261
*        VSEICCF  PARMS                                                 00000262
* --------------------------------------------------------------------  00000263
         DS    0F                                                       00000264
IPARMS   DS    0CL36                                                    00000265
IPARM    DS    CL21                DTSUTIL COMMAND                      00000266
IRETCOD  DS    CL3                 RETURN CODE                          00000267
IBUFADR  DS    F                   BUFFER ADDRESS                       00000268
INORL    DC    F'0'                NO RECORDS                           00000269
IENDBUF  DS    F                   END BUFFER ADDRESS                   00000270
*                                                                       00000271
PARMADR  DS    F                   PARMS ADDRESS                        00000272
NEXTRADR DS    F                   NEXT RECORD ADDRESS                  00000273
SWFULL   DS    C                   BUFFER FULL SW                       00000274
         DS    0H                                                       00000275
* --------------------------------------------------------------------  00000276
*                                                                       00000277
RETURN   EQU   *                       RETURN TO MAIN PGM               00000278
         MVC   IRETCOD,=C'000'                                          00000279
         CLI   SWFULL,C'0'             BUFFER FULL CONDITION ?          00000280
         BE    *+10                    NO                               00000281
         MVC   IRETCOD,=C'999'         YES                              00000282
         L     R1,PARMADR              PARMS ADDRESS                    00000283
         MVC   0(L'IPARMS,R1),IPARMS   MOVE PARMS                       00000284
         LA    R13,SAVEAREA            SAVE AREA FOR THIS TASK          00000285
         STM   R14,R12,12(R13)         STORE REGS IN SAVEAREA           00000286
         L     R13,4(R13)              ADDRESS OF MAIN PGM SAVEAREA     00000287
         L     R14,12(R13)             RESTORE RETURN REGISTER          00000288
         LM    R0,R12,20(R13)          RESTORE REGS 0-12                00000289
         BR    R14                     RETURN TO MAIN PGM               00000290
*                                                                       00000291
*       JE RECOIS LA MAIN ICI CHAQUE FOIS QUE DTSUTIL FAIT UN PUT       00000292
*                                                                       00000293
IUIPUT   EQU   *                                                        00000294
         CLI   27(R1),C'L'         PUT TO SYSLST ?                      00000295
         BNE   IUI10074            NO,                                  00000296
         CLI   01(R4),C'.'         COMMAND LINE ?                       00000297
         BE    PRINT               YES, PRINT                           00000298
         CLI   01(R4),C'*'         *END LINE ?                          00000299
         BE    PRINT               YES, PRINT                           00000300
         CLI   01(R4),C'K'         ERROR MSG ?                          00000301
         BE    PRINT               YES, PRINT                           00000302
         B     IUI10070                                                 00000303
*                                                                       00000304
PRINT    EQU   *                                                        00000305
         MVI   IUILSA,C' '                                              00000306
         MVC   IUILSA+1(120),1(R4)                                      00000307
         PUT   IJSYSLS                                                  00000308
*                                                                       00000309
IUI10070 EQU   *                                                        00000310
         CLI   01(R4),C'K'             ERROR MSG ?                      00000311
         BE    IUI10072                YES, MOVE TO BUFFER              00000312
*                                                                       00000313
         CLC   IPARMS(5),=C'DSERV'     DSERV COMMAND ?                  00000314
         BNE   RETOUR                  NO, RETURN                       00000315
*                                                                       00000316
         CLI   27(R4),C'/'         DETAIL LINE ?                        00000317
         BNE   RETOUR              NO, RETURN                           00000318
         CLI   0(R4),X'8B'         SKIP TO CHN 1 IMMED LINE ?           00000319
         BE    RETOUR              YES, RETURN                          00000320
         L     R1,NEXTRADR         NEXT RECORD BUFFER ADDRESS           00000321
         MVI   0(R1),C' '          CLEAR 2 RECORDS                      00000322
         MVC   1(159,R1),0(R1)                                          00000323
         MVC   0(60,R1),1(R4)      MOVE LEFT ENTRY TO BUFFER            00000324
         MVC   80(60,R1),61(R4)    MOVE RIGHT ENTRY                     00000325
         LA    R1,160(R1)          INDEX TO NEXT                        00000326
         ST    R1,NEXTRADR         SAVE                                 00000327
         L     R1,INORL                                                 00000328
         LA    R1,2(R1)            RECORD COUNT                         00000329
         ST    R1,INORL                                                 00000330
         B     RETOUR                                                   00000331
*                                                                       00000332
IUI10072 EQU   *                                                        00000333
         L     R1,NEXTRADR         NEXT RECORD BUFFER ADDRESS           00000334
         MVC   0(80,R1),1(R4)      MOVE ERROR MSG TO BUFFER             00000335
         LA    R1,80(R1)           INDEX TO NEXT                        00000336
         ST    R1,NEXTRADR         SAVE                                 00000337
         L     R1,INORL                                                 00000338
         LA    R1,1(R1)            RECORD COUNT                         00000339
         ST    R1,INORL                                                 00000340
         B     RETOUR                                                   00000341
*                                                                       00000342
IUI10074 EQU   *                                                        00000343
         MVC   IUIPHA,0(R4)                                             00000344
         LA    R1,IUIPHA                                                00000345
         LA    R1,1(R1)            BYPASS CHARACTER CTL                 00000346
         L     R1,NEXTRADR         NEXT RECORD BUFFER ADDRESS           00000347
         C     R1,IENDBUF          REACH END BUFFER ?                   00000348
         BNE   IUI10076            NO                                   00000349
         MVI   SWFULL,C'1'         YES                                  00000350
         B     RETOUR                                                   00000351
IUI10076 MVC   0(80,R1),1(R4)      MOVE RECORD TO BUFFER                00000352
         LA    R1,80(R1)           INDEX TO NEXT                        00000353
         ST    R1,NEXTRADR         SAVE                                 00000354
         L     R1,INORL                                                 00000355
         LA    R1,1(R1)            RECORD COUNT                         00000356
         ST    R1,INORL                                                 00000357
*        PUT   IJSYSPH                                                  00000358
         B     RETOUR              RETURN TO DTSUTIL                    00000359
*                                                                       00000360
FINIPT   EQU   *                                                        00000361
         LR    R1,R14              SAVE RETURN ADDRESS                  00000362
         BR    R1                                                       00000363
*                                                                       00000364
         LTORG                                                          00000365
*        PRINT OFF                                                      00000366
IJWTOMOD DS    0D                  MODULE IJWTOMOD                      00000367
         DROP  R3                                                       00000368
         USING *,R1                                                     00000369
IJDESCNB CCB   SYSLOG,IJDESCNW                                          00000370
IJDESCNW CCW   9,0,X'20',0                                              00000371
         B     IJDESCND            POINT D'ENTREE WTO                   00000372
*                                  POINT D'ENTREE WTOR                  00000373
         MVI   IJDESCNW,X'0A'                                           00000374
*                                                                       00000375
IJDESCND EQU   *                                                        00000376
         STCM  15,7,IJDESCNW+1                                          00000377
         STCM  0,3,IJDESCNW+6                                           00000378
         ST    14,IJDESCNR                                              00000379
IJDESCNL EQU   *                                                        00000380
         SVC   0                                                        00000381
         WAIT  (1)                                                      00000382
*                                                                       00000383
         CLI   IJDESCNW,X'0A'    * SI PAS WTOR, C'EST FINI              00000384
         BNE   IJDESCNE          *                                      00000385
*                                                                       00000386
         TM    4(1),X'01'        * SI ANNULATION D'UNE REPONSE, RELIRE  00000387
         BO    IJDESCNL          *                                      00000388
*                                                                       00000389
IJDESCNI EQU   *                 * RENDRE TOUS LES CARACTERES DE LA     00000390
         OI    0(15),X'40'       * REPONSE AFFICHABLES                  00000391
         LA    15,1(15)          *                                      00000392
         BCT   0,IJDESCNI        *                                      00000393
         ICM   15,7,IJDESCNW+1   * RESTAURER REGISTRES 15 ET 0          00000394
         ICM   0,3,IJDESCNW+6    *                                      00000395
*                                                                       00000396
IJDESCNE EQU   *                 * RESTAURER LE MODULE POUR ECRITURE    00000397
         MVI   6(1),0            * SUR SYSLOG                           00000398
         MVI   7(1),X'04'        *                                      00000399
         MVI   IJDESCNW,X'09'    *                                      00000400
         L     14,IJDESCNR                                              00000401
         BR    14                                                       00000402
*                                                                       00000403
IJDESCNR DC    F'0'                                                     00000404
*                                                                       00000405
         PRINT ON                                                       00000406
R0       EQU 0                                                          00000407
R1       EQU 1                                                          00000408
R2       EQU 2                                                          00000409
R3       EQU 3                                                          00000410
R4       EQU 4                                                          00000411
R5       EQU 5                                                          00000412
R6       EQU 6                                                          00000413
R7       EQU 7                                                          00000414
R8       EQU 8                                                          00000415
R9       EQU 9                                                          00000416
R10      EQU 10                                                         00000417
R11      EQU 11                                                         00000418
R12      EQU 12                                                         00000419
R13      EQU 13                                                         00000420
R14      EQU 14                                                         00000421
R15      EQU 15                                                         00000422
         END                                                            00000423
/+                                                                      00000424
/*                                                                      00000425
* $$ LST DISP=D,CLASS=P                                                 00000426
* $$ PUN DISP=I,CLASS=0                                                 00000427
// JOB VSEICCF     ASSEMBLY                                             00000428
// EXEC IESINSRT                                                        00000429
$ $$ LST DISP=D,CLASS=P                                                 00000430
// JOB VSEICCF     LIBR/CATALR                                          00000431
// EXEC LIBR,PARM='MSHP;ACC S=PRD2.BTAM'                                00000432
* $$ END                                                                00000433
// OPTION DECK                                                          00000434
// LIBDEF *,SEARCH=PRD2.BTAM                                            00000435
// EXEC ASSEMBLY                                                        00000436
         COPY  VSEICCF                                                  00000437
/*                                                                      00000438
// EXEC IESINSRT                                                        00000439
/*                                                                      00000440
#&                                                                      00000441
* $$ END                                                                00000442
/&                                                                      00000443
* $$ EOJ                                                                00000444
