&PL      PROC  &P,5                                                     STX00010
STXIT    NAME  0                                                        STX00020
EXIT     NAME  X'80'                                                    STX00030
.*       STXIT OC,ENTRY POINT,SAVE AREA,MSG AREA,LENGTH                 STX00040
.*       STXIT AB-IT-PC,ENTRY POINT,SAVE AREA                           STX00050
.*       EXIT  OC-IT-PC                                                 STX00060
.*       EXIT  AB                       IS VALID ONLY FOR SYMBIONTS     STX00070
         LCL   &TYP                                                     STX00080
         LCL   &TYP1,&TYP2                                              STX00090
         LCL   &PP2,&PP3                                                STX00100
&PP2     SET   ('&P(2)'='(1)')++('&P(2)'='1')                           STX00110
&PP3     SET   ('&P(3)'='(0)')++('&P(3)'='0')                           STX00120
&TYP     SET   '&PL.        '(1,8)                                      STX00130
&TYP           DS    0H                                                 STX00140
&TYP     SET   &P(0)                                                    STX00150
&TYP2    SET   0                                                        STX00160
         DO    ('&P(2)'='')=0                                           STX00170
&TYP2    SET   X'40'                                                    STX00180
         ENDO                                                           STX00190
         DO    '&P(1)'='OC'                                             STX00200
&TYP1    SET   8                                                        STX00210
         GOTO  .STX1                                                    STX00220
         ENDO                                                           STX00230
         DO    '&P(1)'='AB'                                             STX00240
&TYP1    SET   4                                                        STX00250
         GOTO  .STX2                                                    STX00260
         ENDO                                                           STX00270
         DO    '&P(1)'='IT'                                             STX00280
&TYP1    SET   0                                                        STX00290
         GOTO  .STX2                                                    STX00300
         ENDO                                                           STX00310
         DO    '&P(1)'='PC'                                             STX00320
&TYP1    SET   12                                                       STX00330
         GOTO  .STX2                                                    STX00340
         ENDO                                                           STX00350
         PNOTE 'P','PARAMETER 1 MISSING OR INCORRECTLY SPECIFIED'       STX00360
         GOTO  .EXIT                                                    STX00370
.STX1    LABEL                                                          STX00380
         DO    &P(0)=X'80'                                              STX00390
         GOTO  .EXIT1                                                   STX00400
         ENDO                                                           STX00410
         DO    '&P(2)'=''                                               STX00420
         GOTO  .EXIT1                                                   STX00430
         ENDO                                                           STX00440
         DO    (('&P(2)'='(1)')++('&P(2)'='1'))=0                       STX00450
         DO    ('&P(3)'='')++('&P(4)'='')++('&P(5)'='')                 STX00460
         PNOTE 'P','PARAMETER(S) MISSING'                               STX00470
         GOTO  .EXIT                                                    STX00480
         ENDO                                                           STX00490
                   CNOP  0,4                                            STX00500
                   L     1,*+8          R1=AD. OF TABLE OCIC PARAMETERS STX00510
                   B     *+24                                           STX00520
                   DC    AL1(&TYP++&TYP1++&TYP2)                        STX00530
                   DC    AL3(*+3)                                       STX00540
                   DC    A(&P(3))                                       STX00550
                   DC    A(&P(2))                                       STX00560
                   DC    A(&P(4))                                       STX00570
                   DC    A(&P(5))                                       STX00580
         GOTO  .EXIT2                                                   STX00590
         ENDO                                                           STX00600
         GOTO  .STX3                                                    STX00610
.STX2    LABEL                                                          STX00620
         DO    &P(0)=X'80'                                              STX00630
         GOTO  .EXIT1                                                   STX00640
         ENDO                                                           STX00650
         DO    '&P(2)'=''                                               STX00660
         GOTO  .EXIT1                                                   STX00670
         ENDO                                                           STX00680
         DO    (&PP2=0)**(&PP3=0)                                       STX00690
         DO    '&P(3)'=''                                               STX00700
         PNOTE 'P','PARAMETER 3 MISSING'                                STX00710
         GOTO  .EXIT                                                    STX00720
         ENDO                                                           STX00730
                   CNOP  0,4                                            STX00740
                   LM    0,1,*+8        R0= SAVE AREA R1= ENTRY PT.     STX00750
                   B     *+12                                           STX00760
                   DC    A(&P(3))                                       STX00770
                   DC    AL1(&TYP++&TYP1++&TYP2)                        STX00780
                   DC    AL3(&P(2))                                     STX00790
         GOTO  .EXIT2                                                   STX00800
         ENDO                                                           STX00810
         DO    (&PP2=0)**(&PP3=1)                                       STX00820
                   CNOP  0,4                                            STX00830
                   L     1,*+8                                          STX00840
                   B     *+8                                            STX00850
                   DC    AL1(&TYP++&TYP1++&TYP2)                        STX00860
                   DC    AL3(&P(2))                                     STX00870
         GOTO  .EXIT2                                                   STX00880
         ENDO                                                           STX00890
         DO    (&PP2=1)**(&PP3=0)                                       STX00900
                   CNOP  0,4                                            STX00910
                   LA    1,0(0,1)                                       STX00920
                   L     0,*+12                                         STX00930
                   O     1,*+12                                         STX00940
                   B     *+12                                           STX00950
                   DC    A(&P(3))                                       STX00960
                   DC    AL1(&TYP++&TYP1++&TYP2)                        STX00970
                   DC    AL3(0)                                         STX00980
         GOTO  .EXIT2                                                   STX00990
         ENDO                                                           STX01000
.STX3    LABEL                                                          STX01010
                   CNOP  0,4                                            STX01020
                   LA    1,0(0,1)                                       STX01030
                   O     1,*+8                                          STX01040
                   B     *+8                                            STX01050
                   DC    AL1(&TYP++&TYP1++&TYP2)                        STX01060
                   DC    XL3'0'                                         STX01070
         GOTO  .EXIT2                                                   STX01080
.EXIT1   LABEL                                                          STX01090
                   CNOP  0,4                                            STX01100
                   L     1,*+8                                          STX01110
                   B     *+8                                            STX01120
                   DC    AL1(&TYP++&TYP1++&TYP2)                        STX01130
                   DC    XL3'0'                                         STX01140
.EXIT2   LABEL                                                          STX01150
                   SVC   15                                             STX01160
.EXIT    LABEL                                                          STX01170
         END                                                            STX01180
