MACRO 00800020 &NAME ICHNG &DDN,&RLN,&WORK,&PASSWRD= 01600020 .* DATE 72169 SA54933 01610010 .*A016000,912000 A41023 01650020 .*D024000,288000-328000,920000-936000 A41023 01700020 .*C504000 SA54933 02400010 AIF ('&DDN' EQ '(15)').ERR1 03200020 AIF ('&RLN' EQ '(15)').ERR2 04000020 AIF ('&WORK' EQ '(15)').ERR3 04800020 AIF ('&DDN' NE '' AND '&RLN' NE '' AND '&WORK' NE '').OK 05600020 MNOTE 12,'*** IHB004 REQUIRED OPERAND(S) NOT SPECIFIED' 06400020 MEXIT 07200020 .ERR1 ANOP 08000020 MNOTE 12,'*** IHB078 DDNAME OPERAND REGISTER NOTATION *08800020 INVALID - (15)' 09600020 MEXIT 10400020 .ERR2 ANOP 11200020 MNOTE 12,'*** IHB078 RELATIVE LINE NUMBER OPERAND *12000020 REGISTER NOTATION INVALID - (15)' 12800020 MEXIT 13600020 .ERR3 ANOP 14400020 MNOTE 12,'*** IHB078 WORKAREA OPERAND REGISTER NOTATION *15200020 INVALID - (15)' 16000020 MEXIT 16800020 .ERR4 ANOP 17600020 MNOTE 12,'*** IHB002 INVALID RLN OPERAND SPECIFIED' 18400020 MEXIT 19200020 .OK ANOP 20000020 AIF (K'&DDN LT 9 OR '&DDN'(1,1) EQ '(').OK1 20800020 .DDERR ANOP 21600020 MNOTE 12,'*** IHB002 INVALID DDNAME OPERAND SPECIFIED' 22400020 MEXIT 23200020 .OK1 ANOP 24000020 AIF ('&WORK'(1,1) EQ '(' OR K'&WORK LT 9).OK2 24800020 MNOTE 12,'*** IHB002 INVALID WORKAREA OPERAND SPECIFIED' 25600020 MEXIT 26400020 .OK2 ANOP 27200020 &NAME DS 0H 28000020 AIF ('&DDN'(1,1) EQ '(').REG 33600020 AIF (('&DDN'(1,1) GE 'A' AND '&DDN'(1,1) LE 'Z') OR X34400020 '&DDN'(1,1) EQ '$' OR '&DDN'(1,1) EQ '@' OR X35200020 '&DDN'(1,1) EQ '#').OKDD 36000020 AGO .DDERR 36800020 .OKDD ANOP 37600020 AIF (K'&DDN GT 8).DDERR 38400020 AGO .ACTION 39200020 .REG ANOP 40000020 MVC IEDQ&SYSNDX+16(8),0&DDN MOVE DDNAME INTO CIB 40800020 .ACTION ANOP 41600020 AIF ('&WORK' EQ 'ACT').ACT 42400020 AIF ('&WORK' EQ 'DEACT').DEACT 43200020 AIF ('&WORK'(1,1) EQ '(').REG1 44000020 AGO .PRERLN 44800020 .ACT ANOP 45600020 AGO .RLNO 46400020 .DEACT ANOP 47200020 MVI IEDQ&SYSNDX+27,X'01' . DEACTIVATION CODE 48000020 AGO .RLNO 48800020 .REG1 ANOP 49600020 ST &WORK(1),IEDQ&SYSNDX+24 STORE WORKAREA ADDRESS SA54933 50400010 * IN PARAMETER LIST 51200020 .PRERLN ANOP 52000020 .RLNO ANOP 52800020 AIF ('&RLN'(1,1) NE '(').LA 53600020 STC &RLN(1),IEDQ&SYSNDX+10 . STORE REL LINE NO IN CIB 54400020 AGO .CALL 55200020 .LA ANOP 56000020 AIF ('&RLN' LE '0' OR '&RLN' GE '256').ERR4 56800020 .CALL ANOP 57600020 AIF ('&PASSWRD' EQ '').NOADDR 58400020 AIF (K'&PASSWRD LT 9).OK3 59200020 MNOTE 12,'*** IHB002 INVALID PASSWORD OPERAND SPECIFIED' 60000020 MEXIT 60800020 .OK3 ANOP 61600020 BAL 0,*+12 . PASSWORD ADDRESS IN REG 0 62400020 DC CL8'&PASSWRD' UNSCRAMBLED PASSWORD 63200020 .NOADDR ANOP 64000020 CNOP 0,4 64800020 BAL 1,*+44 . SET CIB ADDR IN PARM REG 65600020 IEDQ&SYSNDX DS 0F . COMMAND INPUT BUFFER 66400020 DC F'0' . OPERATOR CONTROL QCB ADDRESS 67200020 DC XL1'E0' . CIB QUEUING PRIORITY 68000020 DC XL3'00' . LINK FIELD 68800020 DC XL1'49' . ICHNG VERB CODE 69600020 DC XL1'1C' . CIB LENGTH 70400020 AIF ('&RLN'(1,1) NE '(').PDQ 71200020 DC XL1'00' . RELATIVE LINE NUMBER 72000020 AGO .XYZ 72800020 .PDQ ANOP 73600020 DC XL1'&RLN' . RELATIVE LINE NUMBER 74400020 .XYZ ANOP 75200020 DC XL1'00' . COMPLETION CODE 76000020 DC A(IEDQ&SYSNDX+32) . ECB ADDRESS 76800020 AIF ('&DDN'(1,1) EQ '(').REG2 77600020 DC CL8'&DDN' . DDNAME 78400020 AGO .REG3 79200020 .REG2 ANOP 80000020 DC XL8'00' . DDNAME FOR LINE GROUP 80800020 .REG3 ANOP 81600020 AIF ('&WORK' EQ 'ACT').ZOP 82400020 AIF ('&WORK' EQ 'DEACT').ZOP 83200020 AIF ('&WORK'(1,1) NE '(').ZIP 84000020 .ZOP ANOP 84800020 DC XL4'00' . WORKAREA ADDRESS 85600020 AGO .ZAP 86400020 .ZIP ANOP 87200020 DC A(&WORK) . WORKAREA ADDRESS 88000020 .ZAP ANOP 88800020 DC A(IEDQ&SYSNDX) . CIB ADDRESS 89600020 DC F'0' . PCB WORKAREA ADDR/ECB 90400020 DC F'0' . CIB LENGTH ADDRESS 91200020 LINK EP=IEDQET A41023 91250020 MEND 94400020