MACRO                                                          00001000
&CCBN    CCB &SYSXXX,&CCWADD,&OPTIONS,&SENSE                            00002000
 LCLA &CLASS,&NUM                                                       00003000
 LCLB &SNS                                                              00004000
 LCLC &UNIT,&CCWAD,&OPTSW,&T                                            00005000
&T       SETC  'L'''                                                    00006000
         AIF   (T'&CCBN NE 'O').NAMOK                                   00007000
         MNOTE 0,'POSSIBLE ERROR - NAME FIELD BLANK'                    00008000
.NAMOK   ANOP                                                           00009000
         AIF   (K'&SYSXXX NE 6).ERR                                     00010000
         AIF   ('&SYSXXX'(1,3) NE 'SYS').ERR                            00011000
&UNIT    SETC  '&SYSXXX'(4,3)                                           00012000
         AIF   ('&UNIT' LT '000' OR '&UNIT' GT '243').LTRS              00013000
         AIF   ('&UNIT'(2,1) LT '0' OR '&UNIT'(2,1) GT '9').ERR         00014000
         AIF   ('&UNIT'(3,1) LT '0' OR '&UNIT'(3,1) GT '9').ERR         00015000
&CLASS   SETA  1                                                        00016000
&NUM     SETA  &UNIT                                                    00017000
         AGO   .FND                                                     00018000
.LTRS    ANOP                                                           00019000
         AIF   ('&UNIT' EQ 'RDRIPTPCHLSTLOGLNKRESSLBRLB000RECCLBVISCAT'X00020000
               (3*&NUM+1,3)).FND                                        00021000
&NUM     SETA  &NUM+1                                                   00022000
         AIF   (&NUM LE 13).LTRS                                        00023000
.ERR     ANOP                                                           00024000
         MNOTE 3,'FIRST OPERAND INVALID - ''FFFF'' GENERATED'           00025000
&CLASS   SETA  255                                                      00026000
&NUM     SETA  255                                                      00027000
.FND     ANOP                                                           00028000
&CCWAD   SETC  '0'                                                      00029000
         AIF   (T'&CCWADD EQ 'O').CCDER                                 00030000
&CCWAD   SETC  '&CCWADD'                                                00031000
         AGO   .CKOPT                                                   00032000
.CCDER   ANOP                                                           00033000
         MNOTE 0,'POSSIBLE ERROR IN SECOND OPERAND'                     00034000
.CKOPT   ANOP                                                           00035000
&OPTSW   SETC  '0'                                                      00036000
         AIF   (T'&OPTIONS EQ 'O').ASMBL                                00037000
         AIF   (K'&OPTIONS LT 4 OR K'&OPTIONS GT 7).OPTER               00038000
         AIF   ('&OPTIONS'(1,2) NE 'X''' OR '&OPTIONS'(K'&OPTIONS,1) NEX00039000
                '''').OPTER                                             00040000
&OPTSW   SETC  '&OPTIONS'(3,K'&OPTIONS-3)                               00041000
         AGO   .ASMBL                                                   00042000
.OPTER   ANOP                                                           00043000
         MNOTE 3,'THIRD OPERAND INVALID - X''0000'' ASSUMED'            00044000
.ASMBL   ANOP                                                           00045000
&SNS     SETB  (T'&SENSE NE 'O')                                        00046000
         AIF   (NOT &SNS).R2                                            00047000
         DS    0D .                                                     00048000
.R2      ANOP                                                           00049000
&CCBN    DC    XL2'0' .           RESIDUAL COUNT                        00050000
         DC    XL2'&OPTSW' .        COMMUNICATIONS BYTES                00051000
         DC    XL2'0' .           CSW STATUS BYTES                      00052000
         DC    AL1(&CLASS) .           LOGICAL UNIT CLASS               00053000
         DC    AL1(&NUM) .           LOGICAL UNIT                       00054000
         DC    XL1'0'                                                   00055000
         DC    AL3(&CCWAD) .      CCW ADDRESS                           00056000
         DC    B'00&SNS.00000' .      STATUS BYTE                       00057000
         DC    AL3(0) .           CSW CCW ADDRESS                       00058000
         AIF   (NOT &SNS).R1                                            00059000
         CCW   4,&SENSE,0,&T&SENSE .                                    00060000
.R1      ANOP                                                           00061000
         MEND                                                           00062000