MACRO 00020000 &NAME DO &RPL=,&ACB=,&ECB=,&EXIT=,&ARG=,&BRANCH=, *00040000 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *00060000 &ARECLEN= 00080000 AGO .DOSTRT 00084000 * INCLUDES ZTR 00627 00088000 * /* START OF SPECIFICATIONS **** 00100000 * 00150000 *01* MODULE-NAME = DO 00200000 * 00350000 *01* DESCRIPTIVE-NAME = DO 00400000 * 00450000 *01* COPYRIGHT = XXXX-XXX COPYRIGHT IBM CORP 1973 00500000 * 00550000 *01* STATUS = RELEASE 1 00600000 * 00650000 *01* FUNCTION = THE EFFECT OF THIS MACRO IS TO FIRST CAUSE MODIFICATIO 00700000 * OF THE RPL AS SPECIFIED BY THE LDO OPERAND OF THE MACRO, IF THAT 00750000 * OPERAND IS SPECIFIED, THE ACCESS METHOD THEN STARTS TO EXECUTE 00800000 * THE LDOS ASSOCIEATED WITH THE RPL. TO EXECUTE MORE THAN ONE LDO A 00850000 * SEQUENCE MUST BE BUILT BY USING THE LDO MACRO AND SPECIFYING JUMP 00860000 * AS THE COMMAND IN THE LDO FOR THE DO MACRO. THE ADDRESS PART OF 00870000 * THE LDO MUST SPECIFY THE START OF THE SEQUENCE OF LDOS. 00880000 * 00900000 *01* NOTES = THE FOLLOWING RETURN CODES ARE SET IN REGISTER 15 UPON 00950000 * RETURN FROM THE DO MACRO 00960000 * R15 VALUE MEANING 00970000 * 0 REQUEST COMPLETED 00980000 * 4 NOT AN RPL 00990000 * 8 RPL ACTIVE 00992000 * 12 CONTROL BLOCK ERROR 00994000 * 16 LOGICAL ERROR 00996000 * 20 I/O ERROR 00998000 * IN ADDITION TO THE RETURN CODE SET IN REGISTER 15, THE FDBK AND 00998400 * LASTLDO FIELDS OF THE RPL PROVIDE ADDITIONAL INFORMATION ABOUT THE 00998800 * STATUS OF THE I/O REQUEST. THESE FIELDS MAY BE EXAMINED BY THE 00999200 * SHOWCB AND TESTCB MACRO 00999600 * 01000000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01050000 *02* DEPENDENCIES = NONE 01150000 *02* RESTRICTIONS = NONE 01350000 *02* REGISTER-CONVENTIONS = NONE 01450000 *02* PATCH-LABEL = NONE 01650000 *01* MODULE-TYPE = MACRO 01750000 * 01760000 *02* PROCESSOR = ASSEM-370R 01770000 * 01790000 *02* MACRO-SIZE = RES: CHOOSE: (9) STATEMENTS, 01792000 * COMMENTS: ENTER SIZE WHEN MACRO HAS BEEN CODED; 01794000 * 01796000 *02* ATTRIBUTES = LIST-EXEC 01798000 * 01798400 *01* ENTRY-POINT = NA 01798800 * 01799200 *01* EXIT-NORMAL = NA 01799600 * 01799700 *01* EXIT-ERROR = NA 01799800 * 01799900 *01* EXTERNAL-REFERENCES = NONE 01816600 *01* TABLES = NONE 01988300 *01* INNER-MACROS = IHBRDWRA 01988600 * 02048600 *01* SYSTEM-MACROS = NONE 02058600 *01* CHANGE-ACTIVITY = DCR'S=1K0486 02080600 * 02088600 **** END OF SPECIFICATIONS ***/ 02138600 */*DO: CHART (AMODE) */ 02700000 */* HEADER 03200000 */* LEVEL 4 DO MACRO 03700000 */* PAGE # */ 03800000 */*DO: E DO MACRO */ 04200000 */* N RPL=,(LDO= (COMMAND, ADDRESS,LENGTH ,FLAGS)) */ 05220000 */* COMMENT (2,10) OPERANDS */ 05300000 */* M IHBRW = X'13' */ 06200000 */* COMMENT (2,3) CODE ID FOR INNER MACRO */ 06300000 */* L IHBRDWRA (INNER MACRO) */ 06700000 */* R EXIT */ 07200000 */* FOOTING 07700000 .DOSTRT ANOP 08700000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 08750000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 08800000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 08850000 .BYPASS ANOP 08900000 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT,AREA=&AREA, *10700000 ARG=&ARG,OPTCD=&OPTCD,BRANCH=&BRANCH, *11200000 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *11700000 AAREA=&AAREA,AAREALN=&AAREALN,IHBRW=19 12200000 MEND 12300000