MACRO 00010010 &NAME MHGET &WORK=,®=,&RESERVE=NO 00020010 GBLB &IEDQZA(64) . SA62998 00030010 LCLA &LEN,&KWORK,&A 00040010 LCLB &NOGO . @SA75452 00050010 LCLC &WORKARE,&WORKREG,&ANSREG 00060010 .* CHANGE ACTIVITY AS FOLLOWS 00070010 .******************* MICROFICHE FLAGS *********************** SUPT CODE 00080010 .*A020000,060000 SA62998 00090010 .*D060350 SA66910 00100010 .*A030000,102000,122000,245000,269000,331000 @SA75452 00110010 .*C060100-060300,C340000 @SA75452 00120010 .*C060100 @OS76999 00130010 &LEN SETA 4 00140010 AIF (&IEDQZA(5) OR &IEDQZA(14)).BADGRP @OS76999 00150010 AGO .CKRESV @OS76999 00160010 .BADGRP ANOP @OS76999 00170010 MNOTE 12,'*** IHB070 SEQUENCE ERROR - MUST FOLLOW INHDR OR INBX00180010 UF OR OUTHDR OR OUTBUF MACRO' . @SA75452 00190010 &NOGO SETB 1 . @SA75452 00200010 .CKRESV ANOP SA62998 00210010 AIF ('&RESERVE' NE 'YES').NEXT 00220010 &A SETA 2 00230010 AGO .NEXTA 00240010 .NEXT AIF ('&RESERVE' EQ '' OR '&RESERVE' EQ 'NO').NEXTA 00250010 MNOTE 12,'*** IHB300 RESERVE OPERAND INVALID AS SPECIFIED' 00260010 &NOGO SETB 1 . @SA75452 00270010 .NEXTA AIF ('&WORK' EQ '').REGSTR 00280010 AIF ('®' EQ '').CKWK 00290010 MNOTE 12,'*** IEDM05 REG OPERAND INCONSISTENT WITH WORK OPER*00300010 AND' 00310010 &NOGO SETB 1 . @SA75452 00320010 .CKWK ANOP 00330010 AIF ('&WORK'(1,1) EQ '(').WKREG 00340010 &WORKARE SETC '&WORK' 00350010 &LEN SETA &LEN+4 00360010 AIF ('&WORK'(1,1) GT 'Z').BADWORK 00370010 AGO .TESTREG 00380010 .WKREG ANOP 00390010 AIF ('&WORK'(K'&WORK,1) NE ')').BADWORK 00400010 &WORKREG SETC '&WORK'(2,K'&WORK-2) 00410010 AIF ('&WORKREG'(1,1) LT '0').TESTREG 00420010 AIF ('&WORKREG' GE '2' AND '&WORKREG' LE '12').TESTREG 00430010 .BADWORK ANOP 00440010 MNOTE 12,'*** IHB300 WORK OPERAND INVALID AS SPECIFIED' 00450010 &NOGO SETB 1 . @SA75452 00460010 .TESTREG ANOP 00470010 AIF ('®' EQ '').BAL 00480010 AGO .REGSTR1 00490010 .REGSTR ANOP 00500010 AIF ('®' NE '').REGSTR1 00510010 MNOTE 12,'*** IHB004 REQUIRED OPERAND NOT SPECIFIED' 00520010 &NOGO SETB 1 . @SA75452 00530010 AGO .BAL 00540010 .REGSTR1 ANOP 00550010 AIF ('®'(1,1) NE '(').BADREG 00560010 AIF ('®'(K'®,1) NE ')').BADREG 00570010 &ANSREG SETC '®'(2,K'®-2) 00580010 AIF ('&ANSREG'(1,1) LT '0').BAL 00590010 AIF ('&ANSREG' GE '2' AND '&ANSREG' LE '11').BAL 00600010 .BADREG ANOP 00610010 MNOTE 12,'*** IHB300 REG OPERAND INVALID AS SPECIFIED' 00620010 &NOGO SETB 1 . @SA75452 00630010 .BAL AIF (&NOGO EQ 1).MEND . @SA75452 00640010 CNOP 0,4 @SA75452 00650010 &NAME DS 0H 00660010 BAL 1,*+8+&LEN @PI06030 00670010 DC AL1(&A) . MHGET ID AND RESERV FLAG 00680010 DC AL1(&LEN) . PARM LENGTH 00690010 AIF ('&WORKREG' NE '').WKREGDC 00700010 &WORKREG SETC '0' 00710010 .WKREGDC ANOP 00720010 DC AL1(&WORKREG) . WORK REG IF SPECIFIED 00730010 AIF ('&ANSREG' NE '').WKARDC 00740010 &ANSREG SETC '0' 00750010 .WKARDC ANOP 00760010 DC AL1(&ANSREG) . REPLY REG IF SPECIFIED 00770010 AIF ('&WORKARE' EQ '').LOAD 00780010 DC A(&WORK) . ADR OF WORK AREA IF SPECIF 00790010 AGO .LOAD 00800010 .LOAD ANOP @YM06905 00810010 DC V(IEDQGP) VCON - MHGET/MHPUT @YM06905 00820010 L 15,*-4 MHGET/MHPUT RTNE @YM06905 00830010 BALR 14,15 00840010 .MEND SPACE 2 00850010 MEND 00860010