&PL      PROC  &P,5                                                     GET00010
GETINF   NAME  0                                                        GET00020
GETCOM   NAME  X'40'                                                    GET00030
PUTCOM   NAME  X'80'                                                    GET00040
PUTINF   NAME  X'20'                                                    GET00050
.*       GETINF TCB-SIB-PUB-PRE,WORK AREA,NUMBER,DISPLACEMENT           GET00060
.*       GETCOM TO-ADDRESS                                              GET00070
.*       PUTCOM FR-ADDRESS                                              GET00080
         LCL   &TYP,&TYP1,&TYP2                                         GET00090
         GBL   &IP$$GEN,&JP$$GEN,&JT$$GEN,&SB$$GEN                      GET00100
&TYP     SET   0                                                        GET00110
&TYP1    SET   '&PL.        '(1,8)                                      GET00120
&TYP1           DS    0H                                                GET00130
&TYP1    SET   &P(0)                                                    GET00140
&TYP2    SET   0                                                        GET00150
         DO    (&P(0)=0)++(&P(0)=X'20')                                 GET00160
         DO    ('&P(1)'='')++('&P(2)'='')++('&P(3)'='')++('&P(4)'='')   GET00170
         PNOTE 'P','PARAMETER(S) MISSING'                               GET00180
         GOTO  .EXIT                                                    GET00190
         ENDO                                                           GET00200
         DO    '&P(1)'='TCB'                                            GET00210
         DO    '&P(4)'(1,3)='JT$'                                       GET00220
&TYP     SET   'JT$TCB'                                                 GET00230
         ENDO                                                           GET00240
&TYP2    SET   4                                                        GET00250
         DO    '&JT$$GEN'='1'=0                                         GET00260
         PRINT OFF                                                      GET00270
JT$DSECT DSECT                                                          GET00280
         TCB                                                            GET00290
&SYSECT  CSECT                                                          GET00300
                   PRINT ON                                             GET00310
         ENDO                                                           GET00320
         GOTO  .GET3                                                    GET00330
         ENDO                                                           GET00340
         DO    '&P(1)'='SIB'                                            GET00350
         DO    '&P(4)'(1,3)='SB$'                                       GET00360
&TYP     SET   'SB$SIB'                                                 GET00370
         ENDO                                                           GET00380
&TYP2    SET   8                                                        GET00390
         DO    '&SB$$GEN'='1'=0                                         GET00400
         PRINT OFF                                                      GET00410
SB$DSECT DSECT                                                          GET00420
         SIB   NOREF                                                    GET00430
&SYSECT  CSECT                                                          GET00440
                   PRINT ON                                             GET00450
         ENDO                                                           GET00460
         GOTO  .GET3                                                    GET00470
         ENDO                                                           GET00480
         DO    '&P(1)'='PRE'                                            GET00490
         DO    '&P(4)'(1,3)='JP$'                                       GET00500
&TYP     SET   'JP$PRE'                                                 GET00510
         ENDO                                                           GET00520
&TYP2    SET   12                                                       GET00530
         DO    '&JP$$GEN'='1'=0                                         GET00540
         PRINT OFF                                                      GET00550
JP$DSECT DSECT                                                          GET00560
         JBPRE                                                          GET00570
&SYSECT  CSECT                                                          GET00580
                   PRINT ON                                             GET00590
         ENDO                                                           GET00600
         GOTO  .GET3                                                    GET00610
         ENDO                                                           GET00620
         DO    '&P(1)'='PUB'                                            GET00630
         DO    '&P(4)'(1,3)='IP$'                                       GET00640
&TYP     SET   'IP$PUB'                                                 GET00650
         ENDO                                                           GET00660
&TYP2    SET   16                                                       GET00670
         DO    '&IP$$GEN'='1'=0                                         GET00680
         PRINT OFF                                                      GET00690
IP$DSECT DSECT                                                          GET00700
         PUBEQU                                                         GET00710
&SYSECT  CSECT                                                          GET00720
                   PRINT ON                                             GET00730
         ENDO                                                           GET00740
         GOTO  .GET1                                                    GET00750
         ENDO                                                           GET00760
         PNOTE 'P','PARAMETER 1 INCORRECTLY SPECIFIED'                  GET00770
         GOTO  .EXIT                                                    GET00780
         ENDO                                                           GET00790
         DO    '&P(1)'=''                                               GET00800
         PNOTE 'P','PARAMETER 1 MISSING'                                GET00810
         GOTO  .EXIT                                                    GET00820
         ENDO                                                           GET00830
         DO    (('&P(1)'='(1)')++('&P(1)'='1'))=0                       GET00840
                   CNOP  0,4                                            GET00850
                   L     1,*+8          R1= TO OR FROM ADDRESS          GET00860
                   B     *+8                                            GET00870
                   DC    AL1(&TYP1++&TYP2)                              GET00880
                   DC    AL3(&P(1))                                     GET00890
         GOTO  .GET4                                                    GET00900
         ENDO                                                           GET00910
         GOTO  .GET2                                                    GET00920
.GET1    LABEL                                                          GET00930
                   CNOP  0,4                                            GET00940
                   LA    0,*+16         R0= PARAMETER LIST ADDRESS      GET00950
                   LA    1,0(0,1)       R1= PUB ADDRESS                 GET00960
                   O     1,*+16                                         GET00970
                   B     *+16                                           GET00980
                   DC    A(&P(2))                                       GET00990
                   DC    AL2(&P(3))                                     GET01000
                   DC    AL2(&P(4)-&TYP)                                GET01010
                   DC    AL1(&TYP1++&TYP2)                              GET01020
                   DC    XL3'0'                                         GET01030
         GOTO  .GET4                                                    GET01040
.GET2    LABEL                                                          GET01050
                   CNOP  0,4                                            GET01060
                   LA    1,0(0,1)       R1= TO OR FROM ADDRESS          GET01070
                   O     1,*+8                                          GET01080
                   B     *+8                                            GET01090
                   DC    AL1(&TYP1++&TYP2)                              GET01100
                   DC    XL3'0'                                         GET01110
         GOTO  .GET4                                                    GET01120
.GET3    LABEL                                                          GET01130
                   CNOP  0,4                                            GET01140
         DO    ('&P(2)'='(1)')++('&P(2)'='1')                           GET01150
         L     0,*+16                   R0= NO. & DISPL PARAMETERS      GET01160
         LA    1,0(0,1)                                                 GET01170
         O    1,*+12                                                    GET01180
         GOTO  .GET3A                                                   GET01190
         ENDO                                                           GET01200
                   LM    0,1,*+8        R0= NO. & DISPL PARAMETERS      GET01210
.GET3A   LABEL                                                          GET01220
                   B     *+12           R1= WORK AREA ADDRESS           GET01230
                   DC    AL2(&P(3))                                     GET01240
                   DC    AL2(&P(4)-&TYP)                                GET01250
                   DC    AL1(&TYP1++&TYP2)                              GET01260
         DO    ('&P(2)'='(1)')++('&P(2)'='1')                           GET01270
                   DC    XL3'0'                                         GET01280
         GOTO  .GET4                                                    GET01290
         ENDO                                                           GET01300
                   DC    AL3(&P(2))                                     GET01310
.GET4    LABEL                                                          GET01320
                   SVC   17                                             GET01330
         DO    &P(0)=X'20'                                              GET01340
                   LTR   0,0                                            GET01350
         DO    '&P(5)'=''                                               GET01360
                   BNM   *+6                                            GET01370
                   SVC   28             CANCEL IF ERROR                 GET01380
         GOTO  .EXIT                                                    GET01390
         ENDO                                                           GET01400
         DO    '&P(5)'(1,1)='('                                         GET01410
                   BMR   &P(5)                                          GET01420
         GOTO  .EXIT                                                    GET01430
         ENDO                                                           GET01440
                   BM    &P(5)                                          GET01450
         ENDO                                                           GET01460
.EXIT    LABEL                                                          GET01470
         END                                                            GET01480
