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