%GOTO A3AGO; 00020000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00040000 * /* */ 00060000 * /* I K J E F A 3 A */ 00080000 * /* */ 00100000 * /* ACCOUNT/DELETE DEFINE CONSTANTS MACRO */ 00120000 * /* */ 00140000 * /* STATUS */ 00160021 * /* CHANGE LEVEL 000 */ 00180021 * /* PTMS INCLUDED: 2582,4175,4478,4483,5522 */ 00181021 * /* CHANGE LEVEL 001 */ 00182021 * /* APARS INCLUDED: 45306 */ 00182221 * /* PTMS INCLUDED: 1850,1859 */ 00183021 * /* C 285104,288304,291304 A45306 */ 00186821 * /* C 254588-254695 M1850 */ 00187821 * /* C 267394,162240 M1859 */ 00188821 * /* D 162280-162368,162744-162820 M1859 */ 00189821 * /* C 83200,83800,85800,89800,90400,93200,96700,97600, 21974 */ 00190821 * /* C 98200,101000,105600,106200,122600,125000,128200, 21974 */ 00191821 * /* C 130200,132400,135600,142146,142150,142194,146200, 21974 */ 00192821 * /* C 149000,185800,193726-193732,193864,193865,193997, 21974 */ 00193821 * /* C 193998,198600-199000,221800-222200,235200,236200, 21974 */ 00194821 * /* C 237200,238124,276522,276530,276574,276575 21974 */ 00195821 * /* D 183880-183984,276208-276394,279544-279837 21974 */ 00196021 * /* */ 00196700 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00200000 * /* */ 00220000 %A3AGO: ; 00240000 %IF XSECT = 'CSECT' 00244000 %THEN 00248000 %GOTO TARG2; 00252000 %ELSE %; 00256000 GENERATE DATA; 00256800 &SECTN1 DSECT 00257600 @ENDGEN 00258400 %GOTO TARG2A; 00259200 %TARG2: ; 00259300 GENERATE DATA; 00259400 &SECTN1 CSECT 00259500 @ENDGEN 00259600 %TARG2A: ; 00259700 /* DEFINE ROUTINE NAMES */ 00260000 00280000 DECLARE 00300000 /* IDENTIFY EXTERNAL ENTRIES AND NAMES */ 00320000 IKJEFA31 ENTRY EXTERNAL, /* DELETE MESSAGES */ 00340000 ANDXL NONLOCAL EXTERNAL ; /* MESSAGE INDEX */ 00360000 00380000 00400000 DECLARE 00420000 /* REGISTER ASSIGNMENTS */ 00440000 R0 REG(0) PTR(31),/* GP REGISTER 0 */ 00460000 R1 REG(1) PTR(31),/* GP REGISTER 1 */ 00480000 POSTR PTR(31) REG(1), /* PTR TO ECB FOR POST */ 00500000 R2 REG(2) PTR(31), /* GP REGISTER 2 */ 00540000 PLPTR PTR(31) REG(2),/* PTR TO ACCOUNT PARM LIST */ 00560000 IOPLPTR PTR(31) REG(2), /* PTR TO SERV RTN PL */ 00564000 R3 REG(3) PTR(31),/* GP REGISTER 3 */ 00580000 RECBP PTR(31) REG(3), /* PTR TO ECB FOR WAIT */ 00600000 CHRPTR PTR(31) REG(3), /* PTR TO SCAN CHAR */ 00624000 R4 REG(4) PTR(31),/* GP REGISTER 4 */ 00640000 PDLPTR PTR(31) REG(4), /* PTR TO PARSE DESC LIST */ 00660000 GMSPP PTR(31) REG(4), /* PTR TO GOTMAIN AREA */ 00700000 R5 REG(5) PTR(31),/* GP REGISTER 5 */ 00720000 PDLPTRA PTR(31) REG(5), /* PTR TO PARSE DESC LIST */ 00740000 QLNGR PTR(31) REG(5), /* ENQUEUE NAME LENGTH */ 00744000 R6 REG(6) PTR(31),/* GP REGISTER 6 */ 00780000 QNAMR PTR(31) REG(6), /* PTR TO ENQUEUE NAME */ 00784000 CHRCTR PTR(31) REG(6), /* SCAN COUNTER */ 00788000 R7 REG(7) PTR(31),/* GP REGISTER 7 */ 00800000 R8 REG(8) PTR(31),/* GP REGISTER 8 */ 00820000 R9 REG(9) PTR(31),/* GP REGISTER 9 */ 00840000 R10 REG(10) PTR(31),/* GP REGISTER 10 */ 00860000 R11 REG(11) PTR(31),/* GP REGISTER 11 */ 00880000 R12 REG(12) PTR(31),/* GP REGISTER 12 */ 00900000 R13 REG(13) PTR(31),/* GP REGISTER 13 */ 00920000 R14 REG(14) PTR(31),/* GP REGISTER 14 */ 00940000 R15 REG(15) PTR(31);/* GP REGISTER 15 */ 00960000 00980000 RESTRICT (PLPTR); /* RESERVE FOR POINTER SERVICE */ 01000000 RESTRICT (R8); /* BASE PTR FOR STATIC DATA */ 01020000 RESTRICT (R9); /* BASE PTR FOR IKJDEL2 */ 01040000 RESTRICT (R7); /* 2ND BASE PTR FOR IKJDEL2 */ 01044000 01060000 01080000 DECLARE 01100000 /* SAVE AREAS FOR LINK REGISTER */ 01120000 SAV14A PTR(31), 01140000 SAV14AB PTR(31), 01150000 SAV14CL PTR(31), 01160000 SAV14DC PTR(31), 01180000 SAV14DL PTR(31), 01200000 SAV14DS PTR(31), 01220000 SAV14FM PTR(31), 01240000 SAV14FR PTR(31), 01260000 SAV14GB PTR(31), 01280000 SAV14GL PTR(31), 01280800 SAV14LC PTR(31), 01284000 SAV14MF PTR(31), 01300000 SAV14PT PTR(31), 01320000 SAV14SP PTR(31), 01340000 SAV14V PTR(31); 01360000 01380000 DECLARE 01384000 /* PROCESSOR FLOW POINTERS */ 01388000 1 FLOPTRS BDY(WORD), /* FLOW POINTER AREA */ 01392000 2 SAV14E PTR(31), /* FOR ERRFLO */ 01392800 2 SAV14DR PTR(31), /* FOR DRDFLO */ 01396000 2 SAV14NC PTR(31), /* FOR FOR RD DIREC FLOW M */ 01396400 2 SAV14NQ PTR(31); /* FOR ENQUEUE FLOW M2582 */ 01404000 01407600 DECLARE 01411200 /* PSEUDO-LABEL FLOW SWITCHES */ 01414800 ERRFLO LABEL BASED(SAV14E), 01418400 DRDFLO LABEL BASED(SAV14DR), 01422000 INCFLO LABEL BASED(SAV14NC), /* M */ 01425600 NQFLO LABEL BASED(SAV14NQ); /* M2582 */ 01427600 01429200 DECLARE 01432800 /* LOCATE RETURN CODE */ 01436400 RCPTR PTR(31), /* PTR TO RTN CODE LIST */ 01438400 1 RTCLIST BASED(RCPTR), /* NAME OF RTN CODE LIST */ 01438800 2 RCLRES CHAR(3), /* RESERVED */ 01439200 2 RCLC1 PTR(8), /* 1ST RETURN CODE */ 01439600 SAVAR PTR(31) BASED(R13+4), /* CALLER'S SAVE PTR*/ 01440000 RETRNCD PTR(31) BASED(SAVAR+16); /* RETURN CODE */ 01460000 01560000 DECLARE 01580000 DPLPTR PTR(31), /* FOR DELETE POINT LIST */ 01600000 DNMIDP PTR(31), /* FOR DPL ENTRY */ 01620000 DPLNDP PTR(31), /* FOR END OF DPL */ 01640000 NAMPTR PTR(31); /* FOR CURRENT PDE */ 01660000 01680000 DECLARE 01700000 /* SAVE AREA FOR NODELIST PARSE VALIDITY CHK EXIT */ 01720000 SVCHKPS CHAR(72) BDY(WORD); 01740000 01760000 01780000 DECLARE 01800000 /* POINTERS FOR MAPPING FORMATS */ 01820000 HEDBPTR PTR(31), /* HEADER BLOCK */ 01840000 UADSNPTR PTR(31), /* PROTOTYPE OFFSET BLOCK */ 01860000 DPOBPTR PTR(31), /* PASSWORD OFFSET BLOCK */ 01880000 DNOBPTR PTR(31), /* ACCOUNT NUMBER OFFSET BLOCK */ 01900000 DROBPTR PTR(31), /* PROCEDURE NAME OFFSET BLOCK */ 01920000 UADSPPTR PTR(31), /* PASSWORD DATA BLOCK */ 01940000 UADSAPTR PTR(31), /* ACCOUNT NUMBER DATA BLOCK */ 01960000 UADSRPTR PTR(31), /* PROCEDURE NAME DATA BLOCK */ 01980000 UADSDPTR PTR(31), /* PROTOTYPE NAME DATA BLOCK */ 01984000 FSQEPTR PTR(31), /* FREE SPACE QUEUE ELEMENT */ 02000000 UIDLPTR PTR(31); /* DELETE POINT LIST */ 02020000 02040000 @EJECT 02060000 %INCLUDE SYSLIB(IKJEFUAD); 02080000 @EJECT 02100000 * %GOTO ACTMC3; /* 02140000 MACRO 02160000 IKJEFDPL 02180000 EJECT 02200000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02220000 ** * 02240000 ** D E L E T E P O I N T L I S T * 02260000 ** * 02280000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 02300000 ** * 02320000