*%GOTO IEBIB00; 00050041 */* START OF SPECIFICATIONS ******************************************* 00150041 * * 00250041 * MODULE-NAME = IEBIBLKS * 00350041 * * 00450041 * COPYRIGHT = NONE * 00550041 * * 00650041 * STATUS = VS1 RELEASE 5 LEVEL 1 * 00750041 * * 00850041 * DESCRIPTIVE-NAME = IEBIMAGE WORKAREA * 00950041 * * 01050041 * FUNCTION = USED BY IEBIMAGE MODULES TO MAP THE COMMON WORKAREA. * 01150041 * * 01250041 * MODULE-TYPE = MACRO * 01350041 * * 01450041 * MACRO-SIZE = N/A FOR MAPPING MACRO. * 01550041 * * 01650041 * PARAMETER-RECEIVED = NONE * 01750041 * * 01850041 * TABLES = NONE * 01950041 * * 02050041 * INNER-MACROS = NONE * 02150041 * * 02250041 * SYSTEM-MACROS = NONE * 02350041 * * 02450041 * CHANGE-ACTIVITY = NONE * 02550041 * * 02650041 *** END OF SPECIFICATIONS ********************************************/ 02750041 *%IEBIB00:; 02850041 */********************************************************************* 02950041 * * 03050041 * THE FOLLOWING DEFINES THE WORKAREA OF GOTTEN STORAGE OF IEBIBLKS. * 03150041 * * 03250041 *********************************************************************** 03350041 * * 03450041 * __________________________________________________ * 03550041 * | 0(0) | * 03650041 * | DWORK | * 03750041 * | | * 03850041 * |________________________________________________| * 03950041 * | 8(8) | * 04050041 * | FWORK | * 04150041 * |________________________________________________| * 04250041 * | 12(C) | 13(D) | 14(E) | 15(F) | * 04350041 * | STATUS1 | STATUS2 | STATUS3 | STATUS4 | * 04450041 * |____________|___________|___________|___________| * 04550041 * | 16(10) | 17(11) | 18(12) | 19(13) | * 04650041 * | KWDUSED | ACTIVOP | NEXTOP | ACTIVKEY | * 04750041 * |____________|___________|___________|___________| * 04850041 * | 20(14) | 21(15) | * 04950041 * | OPTABLN | OPTABAD | * 05050041 * |____________|___________________________________| * 05150041 * | 24(18) | * 05250041 * | DNAME | * 05350041 * | | * 05450041 * |________________________________________________| * 05550041 * | 32(20) | 35(23) | * 05650041 * | DTTRP | DINDCT | * 05750041 * |____________________________________|___________| * 05850041 * | 36(24) | 39(27) | * 05950041 * | DTTRT | (ZERO) | * 06050041 * |____________________________________| | * 06150041 * | | * 06250041 * |________________________________________________| * 06350041 * | 44(2C) | 46(2E) | * 06450041 * | DATTRI | DSTOR | * 06550041 * |________________________|_______________________| * 06650041 * | | 49(31) | 51(33) | * 06750041 * | (CONT) | DLEN | (ZERO) | * 06850041 * |____________|_______________________| | * 06950041 * | | * 07050041 * |________________________________________________| * 07150041 * | 60(3C) | 62(3E) | * 07250041 * | LIBBLKSZ | BFFLL | * 07350041 * |________________________|_______________________| * 07450041 * | | 66(42) | * 07550041 * | (CONT) | BNAME | * 07650041 * |________________________| | * 07750041 * | | * 07850041 * | ________________________| * 07950041 * | | 74(4A) | * 08050041 * | | BTTRP | * 08150041 * |________________________|_______________________| */ 08250041 *@EJECT; 08350041 */* __________________________________________________ * 08450041 * | | 77(4D) | 78(4E) | 79(4F) | * 08550041 * | (CONT) | CONCATNO | LIBTYPE | BINDCT | * 08650041 * |____________|___________|___________|___________| * 08750041 * | 80(50) | 83(53) | * 08850041 * | BTTRT | (ZERO) | * 08950041 * |____________________________________| | * 09050041 * | | * 09150041 * |________________________________________________| * 09250041 * | 88(58) | 90(5A) | * 09350041 * | BATTRI | BSTOR | * 09450041 * |________________________|_______________________| * 09550041 * | | 93(5D) | 94(5F) | * 09650041 * | (CONT) | BLEN | (ZERO) | * 09750041 * |____________|_______________________| | * 09850041 * | | * 09950041 * |________________________________________________| * 10050041 * | 104(68) | 105(69) | 106(6A) | * 10150041 * | LIBEXT | PRECOL | NEXT | * 10250041 * |____________|___________|_______________________| * 10350041 * | 108(6C) | 109(6D) | * 10450041 * | RETSAVE | CC | * 10550041 * |____________|___________________________________| * 10650041 * | 112(70) | * 10750041 * | CARDEND | * 10850041 * |________________________________________________| * 10950041 * | 116(74) | * 11050041 * | SYSINAD | * 11150041 * |________________________________________________| * 11250041 * | 120(78) | * 11350041 * | SYSPRTAD | * 11450041 * |________________________________________________| * 11550041 * | 124(7C) | * 11650041 * | UTINAD | * 11750041 * |________________________________________________| * 11850041 * | 128(80) | * 11950041 * | UTOUTAD | * 12050041 * |________________________________________________| * 12150041 * | 132(84) | * 12250041 * / MSGEDIT / * 12350041 * / / * 12450041 * |________________________________________________| * 12550041 * | 148(94) | 150(96) | * 12650041 * | PRNCNT | PAGE | * 12750041 * |________________________|_______________________| * 12850041 * | 152(98) | 153(99) | * 12950041 * | ARGMT | TODAY | * 13050041 * |____________|___________________________________| */ 13150041 *@EJECT; 13250041 */* __________________________________________________ * 13350041 * | 154(9A) | 155(9B) | * 13450041 * | LOADFLAG | LOADMOD | * 13550041 * |____________|___________________________________| * 13650041 * | 160(A0) | * 13750041 * | LOADNAME | * 13850041 * | | * 13950041 * |________________________________________________| * 14050041 * | 168(A8) | 170(AA) | * 14150041 * | SEGCNT | TESTP | * 14250041 * |________________________|_______________________| * 14350041 * | 172(AC) | * 14450041 * / SAVE1 / * 14550041 * / / * 14650041 * |________________________________________________| * 14750041 * | 244(F4) | * 14850041 * / SAVE2 / * 14950041 * / / * 15050041 * |________________________________________________| * 15150041 * | 316(13C) | * 15250041 * / SAVE3 / * 15350041 * / / * 15450041 * |________________________________________________| * 15550041 * | 388(184) | * 15650041 * / SAVE4 / * 15750041 * / / * 15850041 * |________________________________________________| * 15950041 * | 460(1CC) | * 16050041 * / PRIMCARD / * 16150041 * / / * 16250041 * |________________________________________________| * 16350041 * | 540(21C) | * 16450041 * / SDRYCARD / * 16550041 * / / * 16650041 * |________________________________________________| * 16750041 * | 620(26C) | 621(26D) | * 16850041 * | MSGN | MSG | * 16950041 * |____________| | * 17050041 * / / * 17150041 * | ________________________| * 17250041 * | | 742(2E6) | * 17350041 * | | FCBSIZE | * 17450041 * |________________________|_______________________| * 17550041 * | 744(2E8) | 745(2E9) | 746(2EA) | 747(2EB) | * 17650048 * | LPI8 | LPI6 | LPI12 | MARGN | * 17750048 * |____________|___________|___________|___________| * 17850048 * | 748(2DC) | 750(2DE) | * 17950048 * | BOTTOM | LOOP | * 18050048 * |________________________|_______________________| * 18150048 * | 752(2F0) | * 18250041 * / DDNAMES / * 18350041 * / / * 18450041 * |________________________________________________| */ 18550041 *@EJECT; 18650041 */* __________________________________________________ * 18750041 * | 784(310) | * 18850041 * | LASTKEY | * 18950041 * | | * 19050041 * |________________________________________________| * 19150041 * | 792(318) | 794(31A) | 795(31B) | * 19250048 * | PARMSIZE | PARMNUM | (RSVD) | * 19330048 * |________________________|___________|___________| * 19410048 * | 796(31C) | * 19490048 * / SCANWORK / * 19570048 * / / * 19650048 * |________________________________________________| * 19730048 * | 2236(8BC) | * 19810048 * | MODHEAD | * 19890048 * | | * 19970048 * |________________________________________________| * 20050048 * | 2244(8C4) | * 20130048 * / MODBOD / * 20210048 * / / * 20290048 * |________________________________________________| * 20370048 * | 10436(28C4) | * 20450048 * / OVERFLO / * 20530048 * / / * 20610048 * |________________________________________________| * 20690048 * | 10648(2998) | * 20770048 * / MSGSAVE / * 20950041 * / / * 21050041 * |________________________________________________| * 21150041 * * 21250041 **********************************************************************/ 21350041 *@EJECT; 21450041 */********************************************************************* 21550041 ** * 21650041 ** DEFINED BELOW ARE MISCELLANEOUS WORK AREAS. * 21750041 ** * 21850041 **********************************************************************/ 21950041 * 22050041 * DECLARE /* GOTTEN STORAGE */ 22150041 * 1 WORKAREA BASED(BUFAD), /* WORK AREA AND BUFFER SPACE */ 22250041 * 2 WORK CHAR(172)BDY(WORD),/* TOTAL WORK AREA. */ 22350041 * 3 WSTOR CHAR(12)BDY(WORD),/* CHARACTER WORK AREA. */ 22450041 * 4 DWORK CHAR(8)BDY(WORD),/* DOUBLE WORD WORK AREA. */ 22550041 * 5 DWORK1 CHAR(4), /* CHARACTER WORK AREA. */ 22650041 * 6 * BIT(8), /* TEMP AREA. */ 22750041 * 6 DWORKB BIT(24), /* TEMP AREA. */ 22850041 * 5 DWORK2 FIXED(32), /* ARITHMATIC WORK AREA. */ 22950041 * 6 XWORK CHAR(2), /* */ 23050041 * 6 PWORK CHAR(2), /* PACKED CHARACTERS. */ 23150041 * 7 PWORK1 CHAR(1), /* PACK CHARACTER @Z48MSTT*/ 23200048 * 4 FWORK FIXED(31), /* FULL WORD WORK AREA. */ 23250041 @EJECT; 23350041 */********************************************************************* 23450041 ** * 23550041 ** DEFINED BELOW ARE THE STATUS INDICATORS FOR THE UTILITY. * 23650041 ** * 23750041 **********************************************************************/ 23850041 * 23950041 * 3 STATUS1 BIT(8), /* CURRENT STATUS OF UTILITY. */ 24050041 * 4 ABNDFLG BIT(1), /* ABNORMAL END PENDING. */ 24150041 * 4 EOFFLG BIT(1), /* END OF FILE PENDING. */ 24250041 * 4 CARDIN BIT(1), /* CARD IN BUFFER INDICATION. */ 24350041 * 4 INHIBLIB BIT(1), /* INHIBIT LIBRARY ACCESS. */ 24450041 * 4 CONTINUE BIT(1), /* CONTINUATION CARD INDICATOR*/ 24550041 * 4 NOWRITE BIT(1), /* NEVER WRITE ON LIBRARY. */ 24650041 * 4 NOTED BIT(1), /* NOTE MACRO ISSUED. */ 24750041 * 3 STATUS2 BIT(8), /* CURRENT STATUS OF OPERATION*/ 24850041 * 4 REPUSE BIT(1), /* REPLACE OPTION INDICATOR. */ 24950041 * 4 INHIBIT BIT(2), /* INHIBIT WRITING/READING. */ 25050041 * 5 INHIBITW BIT(1), /* INHIBIT WRITING PDS. */ 25150041 * 5 INHIBITR BIT(1), /* INHIBIT READING PDS. */ 25250041 * 4 INHIBITP BIT(1), /* INHIBIT PRINTING. */ 25350041 * 4 FMTERR BIT(1), /* INDICATE FORMAT ERROR. */ 25450041 * 4 FMTERR1 BIT(1), /* INDICATE FORMAT ERROR. */ 25550041 * 4 PRTYERR BIT(1), /* PARITY ERROR INDICATOR. */ 25650041 * 5 SETRAS BIT(1), /* ONE RASTER SCAN SET. */ 25750041 * 4 READMOD BIT(1), /* READ AND PRINT ONLY. */ 25850041 * 3 STATUS3 BIT(8), /* CURRENT STATUS OF SCAN. */ 25950041 * 4 INVDLM BIT(1), /* INVALID DELIMITER. */ 26050041 * 4 FOUND BIT(1), /* OPERATION OR KEYWORD FOUND.*/ 26150041 * 4 INVKWD BIT(1), /* INVALID KEYWORD INDICATOR. */ 26250041 * 4 EXCLKWD BIT(1), /* EXCLUSIVE KEYWORD INDICATOR*/ 26350041 * 4 INVPARM BIT(1), /* INVALID PARAMETER. */ 26450041 * 4 INVCHAR BIT(1), /* INVALID CHARACTER. */ 26550041 * 4 UNBAL BIT(1), /* UNBALANCED PARENTHESIS. */ 26650041 * 4 KWDCOMP BIT(1), /* KEYWORD SCAN COMPLETE. */ 26750041 * 3 STATUS4 BIT(8), /* CURRENT STATUS (MISC). */ 26850041 * 4 KEYIN BIT(1), /* KEYWORD READY. */ 26950041 * 4 SCANINP BIT(1), /* SCAN IN PROGRESS. */ 27050041 * 4 INCLSW BIT(1), /* INDICATE INCLUDE KEYWORD. */ 27150041 * 4 HEXERR BIT(1), /* HEX ERROR DURING CONVERT. */ 27250041 * 4 FLDSW BIT(1), /* WITHIN PARM GROUP SWITCH. */ 27350041 * 4 PARMGRP BIT(1), /* PARAMETER GROUP SWITCH. */ 27450041 * 4 OPINPRG BIT(1), /* OPERATION IN PROGRESS. */ 27550041 * 4 LASTQ BIT(1), /* LAST QUOTE OR CARD. */ 27650041 * 3 KWDUSED BIT(8), /* KEYWORDS USED IN OPERATION.*/ 27750041 * 3 ACTIVOP FIXED(8), /* ACTIVE OPERATION NUMBER. */ 27850041 * 3 NEXTOP FIXED(8), /* NEXT OPERATION NUMBER. */ 27950041 * 3 ACTIVKEY FIXED(8), /* ACTIVE KEYWORD. */ 28050041 * 3 OPTABLN FIXED(8), /* LENGTH OF OPERATION TABLE. */ 28150041 * 3 OPTABAD PTR(24), /* ADDR OF OPERATION TABLE. */ 28250041 @EJECT; 28350041 */********************************************************************* 28450041 ** * 28550041 ** DEFINED BELOW ARE THE PDS DIRECTORY ENTRIES FOR STOW AND BLDL. * 28650041 ** * 28750041 **********************************************************************/ 28850041 * 28950041 * 3 DIRECTRY, /* DIRECTORY ENTRY FOR STOW. */ 29050041 * 4 DNAME CHAR(8), /* MEMBER NAME. */ 29150041 * 5 DPREFX CHAR(4), /* STANDARD PREFIX. */ 29250041 * 5 DSUFIX CHAR(4), /* APPENDED SUFFIX. */ 29350041 * 4 DTTRP CHAR(3), /* RELATIVE ADDR OF 1ST BLOCK.*/ 29450041 * 4 DINDCT BIT(8), /* NO. TTRS, USER FLD LENGTH. */ 29550041 * 4 DTTRT CHAR(4), /* RELATIVE ADDR OF TEXT REC. */ 29650041 * 4 * CHAR(4), /* ZEROS. */ 29750041 * 4 DATTRI BIT(16), /* ATTRIBUTES. */ 29850041 * 5 * BIT(7), /* FIXED ATTRIBUTES. */ 29950041 * 5 UNIREC BIT(1), /* BIT ON INDICATES ONE TEXT. */ 30050041 * 4 DSTOR PTR(24)BDY(WORD,3),/* MAIN STORAGE REQUIRED.*/ 30150041 * 4 DLEN PTR(16)BDY(WORD,2),/* LENGTH OF TEXT RECORD.*/ 30250041 * 4 * CHAR(9), /* ZEROS. */ 30350041 */********************************************************************/ 30450041 * 3 LIBBLKSZ FIXED(16), /* LIBRARY BLOCKING FACTOR. */ 30550041 */********************************************************************/ 30650041 * 30750041 * 3 BLDLNTRY BDY(WORD,3), /* BLDL DIRECTORY ENTRY. */ 30850041 * 4 BFFLL BIT(32), /* ONE ENTRY, LENGTH 36. */ 30950041 * 4 BNAME CHAR(8), /* MEMBER NAME. */ 31050041 * 5 BPREFX CHAR(4), /* STANDARD PREFIX. */ 31150041 * 5 BSUFIX CHAR(4), /* MEMBER NAME SUFFIX. */ 31250041 * 4 BTTRP CHAR(3), /* RELATIVE ADDR OF 1ST BLOCK.*/ 31350041 * 4 * BIT(16), /* CONCAT NO. AND LIBRARY TYPE*/ 31450041 * 4 BINDCT BIT(8), /* NO. TTRS, USER FLD LENGTH. */ 31550041 * 4 BTTRTA CHAR(8), /* RELATIVE ADDR OF TEXT REC. */ 31650041 * 5 BTTRT CHAR(3), /* REAL TTR. */ 31750041 * 4 BATTRI BIT(16), /* ATTRIBUTES. */ 31850041 * 5 * BIT(7), /* FIXED ATTRIBUTES. */ 31950041 * 5 BUNIREC BIT(1), /* BIT ON INDICATES ONE TEXT. */ 32050041 * 4 BSTOR PTR(24)BDY(WORD,3),/* MAIN STORAGE REQUIRED.*/ 32150041 * 4 BLEN PTR(16)BDY(WORD,2),/* LENGTH OF TEXT RECORD.*/ 32250041 * 4 * CHAR(9), /* ZEROS */ 32350041 @EJECT; 32450041 */********************************************************************* 32550041 ** * 32650041 ** DEFINED BELOW ARE MISCELLANEOUS COUNTERS AND ADDRESSES. * 32750041 ** * 32850041 **********************************************************************/ 32950041 * 33050041 * 3 LIBEXT BIT(8), /* LAST LIBRARY EXTENT KNOWN. */ 33150041 * 3 PRECOL CHAR(1), /* PREVIOUS COLUMN INFO. */ 33250041 * 3 NEXT FIXED(16), /* CURRENT MSG BUFFER COUNT. */ 33350041 * 3 RETSAVE FIXED(8), /* RETURN CODE SAVE AREA. */ 33450041 * 3 CC PTR(24), /* CURRENT CARD COLUMN PTR. */ 33550041 * 3 CARDEND FIXED(31), /* LAST COLUMN POINTER. */ 33650041 * 3 DCBADS, /* DCB ADDRESS LIST. */ 33750041 * 4 SYSPRTAD PTR(31), /* ADDR OF SYSPRINT DCB. */ 33850041 * 4 SYSINAD PTR(31), /* ADDR OF SYSIN DCB. */ 33950041 * 4 UTINAD PTR(31), /* ADDR OF SYSUT1 INPUT DCB. */ 34050041 * 4 UTOUTAD PTR(31), /* ADDR OF SYSUT1 OUTPUT DCB. */ 34150041 * 3 MSGEDIT(4) FIXED(32), /* MESSAGE EDIT LIST. */ 34250041 * 4 EDITLEN FIXED(8), /* EDIT DATA LENGTH. */ 34350041 * 4 EDITDATA PTR(24), /* EDIT DATA ADDRESS. */ 34450041 * 3 PRNCNT FIXED(15), /* PARENTHESIS COUNTER. */ 34550041 * 3 PAGE FIXED(15), /* RESERVED BYTES. */ 34650041 * 3 ARGMT FIXED(8), /* SCAN ARGUMENT HOLDER. */ 34750041 * 3 TODAY BIT(24), /* TODAYS DATE. */ 34850041 * 3 LOADFLAG BIT(8), /* FLAG INDICATES MOD LOADED. */ 34950041 * 3 LOADMOD PTR(24), /* POINTER TO LOADED MODULE. */ 35050041 * 3 LOADNAME CHAR(8)BDY(WORD),/* NAME OF MODULE TO LOAD. */ 35150041 * 4 * CHAR(4), /* */ 35250041 * 4 INCLNAME CHAR(4), /* NAME OF MODULE TO LOAD. */ 35350041 * 3 SEGCNT FIXED(15), /* MODULE SEGMENT COUNT. */ 35450041 * 3 TESTP FIXED(16), /* TEST AREA, PITCH AND PARITY*/ 35550041 * 4 TPITCH BIT(8), /* PITCH WORK AREA. */ 35650041 * 5 TPP BIT(2), /* PITCH BIT AREA. */ 35750041 * 6 TP1 BIT(1), /* FIRST PITCH BIT. */ 35850041 * 6 TP2 BIT(1), /* SECOND PITCH BIT. */ 35950041 * 4 TPARTY BIT(8), /* PARITY WORK AREA. */ 36050041 * 5 TPS BIT(2), /* PARITY BIT AREA. */ 36150041 * 6 PR1 BIT(1), /* FIRST PARITY BIT. */ 36250041 * 6 PR2 BIT(1), /* SECOND PARITY BIT. */ 36350041 @EJECT; 36450041 */********************************************************************* 36550041 ** * 36650041 ** DEFINED BELOW ARE THE SAVE AREAS AND SYSIN AND SYSPRINT AREAS. * 36750041 ** * 36850041 **********************************************************************/ 36950041 * 37050041 * 2 SAVE1 CHAR(72), /* SAVE AREA LEVEL 1. */ 37150041 * 2 SAVE2 CHAR(72), /* SAVE AREA LEVEL 2. */ 37250041 * 2 SAVE3 CHAR(72), /* SAVE AREA LEVEL 3. */ 37350041 * 2 SAVE4 CHAR(72), /* SAVE AREA LEVEL 4. */ 37450041 * 37550041 */************************ SYSIN BUFFERS ***************************/ 37650041 * 37750041 * 2 PRIMCARD CHAR(80), /* PRIMARY CARD BUFFER. */ 37850041 * 2 SDRYCARD CHAR(80), /* SECONDARY CARD BUFFER. */ 37950041 * 3 RASDATA(18) CHAR(1), /* CARD RASTER SCAN PATTERN. */ 38050041 * 3 * CHAR(6), /* NOT REFERENCED. */ 38150041 * 3 IDENT CHAR(4), /* IDENTIFIER (SEQ=). */ 38250041 * 3 SEQNO CHAR(2), /* SEQUENCE NUMBER. */ 38350041 * 38450041 */************************ SYSPRINT BUFFERS ************************/ 38550041 * 38650041 * 2 MSGN FIXED(8), /* INDICATES MESSAGE NUMBER. */ 38750041 * 2 MSG CHAR(121), /* MESSAGE AREA. */ 38850041 * 3 SPACE CHAR(1), /* FORMS CONTROL BYTE. */ 38950041 * 3 MSGTXT CHAR(120), /* TEXT OF MESSAGE. */ 39050041 * 4 PREFX CHAR(4), /* IEBA IS PREFIX TO ALL MSGS.*/ 39150041 * 4 MSGR CHAR(116), /* REAL MSG MOVES TO HERE. */ 39250041 * 5 * CHAR(1), /* */ 39350041 * 5 MSGOF CHAR(115), /* MSG DISP COUNT FROM HERE */ 39450041 * 6 * CHAR(100), /* UNREFERENCED. */ 39550041 * 6 PAGENO CHAR(4), /* PAGE NUMBER GOES HERE. */ 39650041 @EJECT; 39750041 */********************************************************************* 39850041 ** * 39950041 ** DEFINED BELOW ARE MISCELLANEOUS COUNTERS AND ADDRESSES. * 40050041 ** * 40150041 **********************************************************************/ 40250041 * 40350041 * 2 FCBSIZE FIXED(15), /* FCB SIZE PARAMETER. */ 40450041 * 2 LPICNT FIXED(32), /* LINE PER INCH COUNTERS. */ 40550048 * 3 LPI8 FIXED(8), /* EIGHT LINE PER INCH CNTR. */ 40620048 * 3 LPI6 FIXED(8), /* SIX LINE PER INCH CNTR. */ 40690048 * 3 LPI12 FIXED(8), /* 12 LPI COUNTER @Z48MSTT*/ 40760048 * 3 MARGN FIXED(8), /* MARGIN LINE COUNT. @Z48MSTT*/ 40810048 * 2 BOTTOM FIXED(15), /* BOTTOM MARGIN. @Z48MSTT*/ 40860048 * 2 LOOP FIXED(15), /* LOOP COUNTER. @Z48MSTT*/ 40910048 * 2 DDNAMES(4) CHAR(8), /* DDNAME LIST. */ 40970048 * 2 LASTKEY CHAR(8), /* SAVE AREA FOR LAST KEYWORD.*/ 41040048 * 2 PARMSIZE FIXED(16), /* CURRENT PARAMETER SIZE. */ 41110048 * 2 PARMNUM FIXED(8), /* CURRENT PARAMETER NUMBER. */ 41180048 * 2 RESRV1 FIXED(8), /* RESERVED. @Z48MSTT*/ 41250048 * 2 SCANWORK, /* AREA USED BY SCAN ROUTINES.*/ 41350041 * 3 SCANARY(256,4)FIXED(8), /* ARRAY FILLED BY IEBISCAN. */ 41450041 * 3 SCNT FIXED(16), /* ARRAY TRACKER. */ 41550041 * 3 CARDDATA CHAR(414), /* CARD DATA SCANNED TO HERE. */ 41650041 * 4 COPSV CHAR(3), /* PRINTABLE COPY NUMBER. */ 41750041 * 4 LINSV CHAR(3), /* PRINTABLE LINE NUMBER. */ 41850048 @EJECT; 41950041 */********************************************************************* 42050041 ** * 42150041 ** DEFINED BELOW IS THE INPUT/OUTPUT BUFFER FOR THE LIBRARY DATA SET.* 42250041 ** * 42350041 **********************************************************************/ 42450041 * 42550041 * 2 LIBBUF, /* LIBRARY BUFFER AREA. */ 42650041 * 3 MODHEAD, /* MODULE HEADING. */ 42750041 * 4 MODNAME CHAR(4), /* MODULE SUFFIX. */ 42850041 * 4 MODRSVD FIXED(16), /* RESERVED. */ 42950041 * 4 MODCNT FIXED(16), /* LENGTH OF MODULE BODY. */ 43050041 * 5 CMODCNT FIXED(15), /* LENGTH OF MODULE BODY. */ 43150041 * 3 MODBOD CHAR(8192), /* MODULE BODY. */ 43250041 * 4 BEGMARG CHAR(3), /* FCB MARGIN. */ 43350041 * 4 FCBBOD(141)BIT(8), /* FCB BODY. */ 43450048 * 4 FCBCLR CHAR(144), /* CLEAR FCB COMPARAND. */ 43550048 * 3 OVERFLO CHAR(212), /* OVERFLOW FOR COPYMOD. */ 43750041 * 43850041 */********************************************************************* 43950041 ** * 44050041 ** THE AREAS BELOW HAVE MISCELLANEOUS USES, SEE EACH REDEFINITION * 44150041 ** FOR ITS APPROPRIATE MEANING. * 44250041 ** * 44350041 **********************************************************************/ 44450041 * 44550041 * 2 MSGSAVE(60) CHAR(121), /* MESSAGE BUFFER AREA. */ 44650041 * 2 LASTBYTE CHAR(1); /* LAST BYTE OF GOTTEN CORE. */ 44750041 * DECLARE 44850041 * ASGNMENT BIT(8)DEF(LPI8),/* FOR EBCDIC ASSIGNMENT. */ 44950041 * PITCH BIT(8)DEF(LPI6),/* FOR CHARACTER PITCH. */ 45050041 * 1 GRAFARY(64) BDY(WORD)BASED(ADDR(SCANWORK)), 45150041 * 2 ASNARRAY BIT(8), /* FOR EBCDIC ASSIGNMENT. */ 45250041 * 2 ASNENTRY BIT(8), /* ALL BITS IF ASSIGNED. */ 45350041 * 2 REFARRAY FIXED(16); /* FOR GCM REFERENCE. */ 45450041 * DECLARE /* DELETED SEGMENT ARRAY. */ 45550041 * ASGNSAVE CHAR(256)BASED(ADDR(DEL)),/* FOR ASSIGN VALUES.*/ 45650041 * DEL(1024) BIT(8)BASED(ADDR(SCANARY));/* DELETE VALUES. */ 45750041 *@EJECT; 45850041 */********************************************************************* 45950041 ** * 46050041 ** THE FOLLOWING DEFINES THE KEYWORD USED SWITCHES FOR EACH * 46150041 ** OPERATION. * 46250041 ** * 46350041 **********************************************************************/ 46450041 * DECLARE 46550041 * 1 ALLKEY BIT(8)DEF(KWDUSED), 46650041 * 2 NAMESET BIT(1), /* NAME FOUND. */ 46750041 * 2 NOKEY BIT(1), /* NO KEYWORD FOUND */ 46850041 * 2 DELSET BIT(1), /* DELSEG FOUND. */ 46950041 * 1 FCBKEY BIT(8)DEF(KWDUSED), 47050041 * 2 * BIT(3), /* PREDEFINED. */ 47150041 * 2 LPISET BIT(1), /* LPI FOUND. */ 47250041 * 2 SIZESET BIT(1), /* SIZE FOUND. */ 47350041 * 2 CHSET BIT(1), /* CHX FOUND. */ 47450041 * 1 TBLKEY BIT(8)DEF(KWDUSED), 47550041 * 2 * BIT(3), /* PREDEFINED. */ 47650041 * 2 LOCSET BIT(1), /* LOC FOUND. */ 47750041 * 2 CGMIDSET BIT(1), /* CGMID FOUND. */ 47850041 * 2 GCMLSET BIT(1), /* GCMLIST FOUND. */ 47950041 * 1 COPYKEY BIT(8)DEF(KWDUSED), 48050041 * 2 * BIT(3), /* PREDEFINED. */ 48150041 * 2 COPYSET BIT(1), /* COPIES FOUND. */ 48250041 * 2 LINESET BIT(1), /* LINES FOUND. */ 48350041 * 2 POSSET BIT(1), /* POS FOUND. */ 48450041 * 2 TEXTSET BIT(1), /* TEXT FOUND. */ 48550041 * 1 GRAPHKEY BIT(8)DEF(KWDUSED), 48650041 * 2 * BIT(3), /* PREDEFINED. */ 48750041 * 2 REFSET BIT(1), /* REF FOUND. */ 48850041 * 2 GCMSET BIT(1), /* GCM FOUND. */ 48950041 * 2 ASGNSET BIT(1); /* ASSIGN FOUND. */ 49050041 *@EJECT; 49150041 * DECLARE 49250041 * TEXTDATA CHAR(204)BASED(BUFFPTR), 49350041 * 1 COPYLINE BDY(WORD)BASED(ADDR(SCANWORK)), 49450041 * 2 COPYLABL, /* COPY SEGMENT HEADER. */ 49550041 * 3 ICOPY FIXED(8), /* INITIAL COPY NUMBER. */ 49650041 * 3 COPYX FIXED(8), /* NUMBER OF COPIES. */ 49750041 * 3 ILINE FIXED(8), /* INITIAL LINE NUMBER. */ 49850041 * 3 LINEX FIXED(8), /* NUMBER OF LINES. */ 49950041 * 3 IPOS FIXED(8), /* INITIAL PRINT POSITION. */ 50050041 * 3 TEXTN FIXED(8), /* NUMBER OF TEXT BYTES. */ 50150041 * 2 TEXTD CHAR(204); /* TEXT DATA. */ 50250041 * DECLARE /* BUFFER DEFINITION FOR */ 50350041 * 1 XLATTABL DEF(MODBOD), /* CHAR ARRANGEMENT TABLE. */ 50450041 * 2 XPOS(16,16) BIT(8), /* 256 ENTRIES IN TABLE. */ 50550041 * 3 XWCGM BIT(2), /* TWO HI BITS INDICATE WCGM. */ 50650041 * 3 XREF BIT(6), /* SIX LOW BITS ARE WCGM REF. */ 50750041 * 2 CGMIDALL CHAR(8)BDY(WORD),/* CGMID AREA. */ 50850041 * 3 CGMIDX(4) FIXED(16), /* FOUR POSSIBLE */ 50950041 * 4 CGMIDN FIXED(8), /* CHAR GEN MOD IDENTS AND */ 51050041 * 4 CGMIDNO FIXED(8), /* IDENT ORDERS. */ 51150041 * 2 GRFMODS CHAR(16), /* GCM NAME AREA. */ 51250041 * 3 GRAFMODN(4)CHAR(4); /* FOUR POSSIBLE GCM NAMES. */ 51350041 * DECLARE 51450041 * 1 FCBMOD CHAR(152)DEF(LIBBUF),/* DEFINE FCB MODULE. */ 51550048 * 2 FCBHEAD, /* FCB MODULE HEADING. */ 51650041 * 3 FCBNAME CHAR(4), /* NAME SUFFIX. */ 51750041 * 3 FCBRSVD FIXED(16), /* RESERVED. */ 51850041 * 3 FCBCNT FIXED(16), /* COUNT OF BYTES REMAINING. */ 51950041 * 2 FCBYTE(*) BIT(8), /* ACTUAL FCB */ 52050041 * 3 FCBNA BIT(2), /* TWO BITS NOT USED @Z48MSTT*/ 52150048 * 3 FLPI12 BIT(2), /* 12 LPI BITS. @Z48MSTT*/ 52200048 * 4 * BIT(1), /* UNDEFINED. @Z48MSTT*/ 52250048 * 4 FLPI BIT(1), /* ON = 8 LPI, OFF = 6 LPI */ 52300048 * 3 FCHN BIT(4); /* CHANNEL CODE. */ 52350041 * DECLARE 52450041 * DCBTAB(4)PTR(31)DEF(DCBADS), /* TABLE OF DCB ADDRESSES. */ 52550041 * 1 CWORK CHAR(4) DEF(FWORK), /* NEED CHAR DEFINITION ALSO */ 52650041 * 2 UWORK CHAR(2), /* UNPACK AREA. */ 52750041 * 3 * CHAR(1), 52850041 * 3 UNITS CHAR(1), /* UNITS POSITION RETURN CODE */ 52950041 * 1 CWORKX CHAR(4) DEF(FWORK), /* */ 53050041 * 2 * CHAR(1), /* UNREFERENCED. */ 53150041 * 2 CWORK3 CHAR(3), /* THREE LOW ORDER BYTES. */ 53250041 * 3 * CHAR(1), /* UNREFERENCED. */ 53350041 * 3 CWORK2 CHAR(2), /* TWO LOW ORDER BYTES. */ 53450041 * 4 * CHAR(1), /* UNREFERENCED. */ 53550041 * 4 CWORK1 CHAR(1); /* LOW ORDER BYTE. */ 53650041 * DECLARE 53750041 * COL CHAR(8) BASED(CC), /* CARD COLUMN DEFINITION. */ 53850041 * COL72 CHAR(1) DEF(PRIMCARD)POSITION(72); /* DEFINE COL 72*/ 53950041 * DECLARE /* PRINT QUEUE AREA. */ 54050041 * 1 PRTQELEM CHAR(121)BASED(ADDR(MSGSAVE(NEXT))), 54150041 * 2 CONTROL CHAR(1), /* ROOM FOR CONTROL CHARACTER.*/ 54250041 * 2 PRTQUEUE CHAR(120), /* PRINT LINE INFORMATION. */ 54350041 * 3 * CHAR(54), /* UNDEFINED AREA. */ 54450041 * 3 TBN CHAR(8); /* AREA FOR MODULE NAME. */ 54550041 *@EJECT; 54650041 */********************************************************************* 54750041 ** * 54850041 ** LISTED BELOW ARE THE MESSAGE NUMBERS THAT MAY BE SELECTED. * 54950041 ** * 55050041 **********************************************************************/ 55150041 * 55250041 * DECLARE 55350041 * IEBA01I FIXED(8) CONSTANT(1), /* SELECTS MESSAGE 1. */ 55450041 * IEBA02I FIXED(8) CONSTANT(2), /* SELECTS MESSAGE 2. */ 55550041 * IEBA03I FIXED(8) CONSTANT(3), /* SELECTS MESSAGE 3. */ 55650041 * IEBA04I FIXED(8) CONSTANT(4), /* SELECTS MESSAGE 4. */ 55750041 * IEBA05I FIXED(8) CONSTANT(5), /* SELECTS MESSAGE 5. */ 55850041 * IEBA06I FIXED(8) CONSTANT(6), /* SELECTS MESSAGE 6. */ 55950041 * IEBA07I FIXED(8) CONSTANT(7), /* SELECTS MESSAGE 7. */ 56050041 * IEBA08I FIXED(8) CONSTANT(8), /* SELECTS MESSAGE 8. */ 56150041 * IEBA09I FIXED(8) CONSTANT(9), /* SELECTS MESSAGE 9. */ 56250041 * IEBA10I FIXED(8) CONSTANT(10),/* SELECTS MESSAGE 10. */ 56350041 * IEBA11I FIXED(8) CONSTANT(11),/* SELECTS MESSAGE 11. */ 56450041 * IEBA12I FIXED(8) CONSTANT(12),/* SELECTS MESSAGE 12. */ 56550041 * IEBA13I FIXED(8) CONSTANT(13),/* SELECTS MESSAGE 13. */ 56650041 * IEBA14I FIXED(8) CONSTANT(14),/* SELECTS MESSAGE 14. */ 56750041 * IEBA15I FIXED(8) CONSTANT(15),/* SELECTS MESSAGE 15. */ 56850041 * IEBA16I FIXED(8) CONSTANT(16),/* SELECTS MESSAGE 16. */ 56950041 * IEBA17I FIXED(8) CONSTANT(17),/* SELECTS MESSAGE 17. */ 57050041 * IEBA18I FIXED(8) CONSTANT(18),/* SELECTS MESSAGE 18. */ 57150041 * IEBA19I FIXED(8) CONSTANT(19),/* SELECTS MESSAGE 19. */ 57250041 * IEBA20I FIXED(8) CONSTANT(20),/* SELECTS MESSAGE 20. */ 57350041 * IEBA21I FIXED(8) CONSTANT(21),/* SELECTS MESSAGE 21. */ 57450041 * IEBA22I FIXED(8) CONSTANT(22),/* SELECTS MESSAGE 22. */ 57550041 * IEBA23I FIXED(8) CONSTANT(23),/* SELECTS MESSAGE 23. */ 57650041 * IEBA24I FIXED(8) CONSTANT(24),/* SELECTS MESSAGE 24. */ 57750041 * IEBA25I FIXED(8) CONSTANT(25),/* SELECTS MESSAGE 25. */ 57850041 * IEBA26I FIXED(8) CONSTANT(26),/* SELECTS MESSAGE 26. */ 57950041 * IEBA27I FIXED(8) CONSTANT(27),/* SELECTS MESSAGE 27. */ 58050041 * IEBA28I FIXED(8) CONSTANT(28),/* SELECTS MESSAGE 28. */ 58150041 * IEBA29I FIXED(8) CONSTANT(29),/* SELECTS MESSAGE 29. */ 58250041 * IEBA30I FIXED(8) CONSTANT(30),/* SELECTS MESSAGE 30. */ 58350041 * IEBA31I FIXED(8) CONSTANT(31),/* SELECTS MESSAGE 31. */ 58450041 * IEBA32I FIXED(8) CONSTANT(32),/* SELECTS MESSAGE 32. */ 58550041 * IEBA33I FIXED(8) CONSTANT(33),/* SELECTS MESSAGE 33. */ 58650041 * IEBA34I FIXED(8) CONSTANT(34),/* SELECTS MESSAGE 34. */ 58750041 * IEBA35I FIXED(8) CONSTANT(35),/* SELECTS MESSAGE 35. */ 58850041 * IEBA36I FIXED(8) CONSTANT(36),/* SELECTS MESSAGE 36. */ 58950041 * IEBA37I FIXED(8) CONSTANT(37),/* SELECTS MESSAGE 37. */ 59050041 * IEBA38I FIXED(8) CONSTANT(38),/* SELECTS MESSAGE 38. */ 59150041 * IEBA39I FIXED(8) CONSTANT(39),/* SELECTS MESSAGE 39. */ 59250041 * IEBA40I FIXED(8) CONSTANT(40),/* SELECTS MESSAGE 40. */ 59350041 * IEBA41I FIXED(8) CONSTANT(41),/* SELECTS MESSAGE 41. */ 59450041 * IEBA42I FIXED(8) CONSTANT(42),/* SELECTS MESSAGE 42. */ 59550041 * IEBA43I FIXED(8) CONSTANT(43),/* SELECTS MESSAGE 43. */ 59650041 * IEBA44I FIXED(8) CONSTANT(44),/* SELECTS MESSAGE 44. */ 59750041 * IEBA45I FIXED(8) CONSTANT(45),/* SELECTS MESSAGE 45. */ 59850041 * IEBA46I FIXED(8) CONSTANT(46),/* SELECTS MESSAGE 46. */ 59950041 * IEBA47I FIXED(8) CONSTANT(47),/* SELECTS MESSAGE 47. */ 60050041 * IEBA48I FIXED(8) CONSTANT(48),/* SELECTS MESSAGE 48. */ 60150048 * IEBA49I FIXED(8) CONSTANT(49);/* SELECTS MESSAGE 49. */ 60200048 * @EJECT; 60250041 */********************************************************************* 60350041 ** * 60450041 ** BELOW ARE ALL THE REGISTER DEFINITIONS USED IN THE PROGRAM. * 60550041 ** THEY ARE RESTRICTED AND UNRESTRICTED AS THE NEED FOR THIER * 60650041 ** USE ARISES. * 60750041 ** * 60850041 **********************************************************************/ 60950041 * 61050041 * DECLARE /* REGISTER ASSIGNMENTS. */ 61150041 * R0 REG(0) PTR(31)UNRSTD, /* HOLDS PARAMETER. */ 61250041 * R1 REG(1) PTR(31)UNRSTD, /* HOLDS PARAMETER POINTER */ 61350041 * PARAM REG(3) PTR(31)UNRSTD, /* SAVES PARAMETER POINTER */ 61450041 * REMSIZE REG(3)FIXED(31)UNRSTD, /* REMAINDER OF MOD BLOCK. */ 61550041 * SHIFT REG(4)FIXED(31)UNRSTD, /* SHIFT REG. */ 61650041 * SHIFT2 REG(5)FIXED(31)UNRSTD, /* SHIFT REGISTER. */ 61750041 * RECAREA REG(4)FIXED(31)UNRSTD, /* RECEIVING AREA FOR MVCL.*/ 61850041 * RECSIZE REG(5)FIXED(31)UNRSTD, /* RECEIVING SIZE FOR MVCL.*/ 61950041 * BUFFPTR REG(6) PTR(31)UNRSTD, /* INTERNAL BUFFER POINTER.*/ 62050041 * TRANSIZE REG(7)FIXED(31)UNRSTD, /* RECEIVING SIZE FOR MVCL.*/ 62150041 * DB REG(7) PTR(32)UNRSTD, /* DATA PTR FOR ASSEM CODE */ 62250041 * BUFAD PTR REG(8) RESTRICTED, /* REG OF GOTTEN STORAGE. */ 62350041 * R14 REG(14) PTR(32)UNRSTD, /* HOLDS CALLED ROUTINE ADR*/ 62450041 * RETCODE REG(15) FIXED(32)UNRSTD;/* HOLDS RETURN CODE. */ 62550041 *@EJECT; 62650041 */********************************************************************* 62750041 ** * 62850041 ** THE FOLLOWING REDEFINES THE OPERATION TABLE AS AN ARRAY OF * 62950041 ** TWENTY FOUR BYTE ELEMENTS. * 63050041 ** * 63150041 **********************************************************************/ 63250041 * DECLARE 63350041 * 1 TABLDEF(*) BASED(OPTABAD), /* OPERATION TABLE STRUCTURE. */ 63450041 * 2 OPNUM FIXED(8), /* OPERATION NUMBER. */ 63550041 * 2 OPFLAGS BIT(24), /* OPERATIONAL/KEYWORD FLAGS. */ 63650041 * 3 MLTFLAG BIT(1), /* MULTI CONTROL CARDS ALLOWED*/ 63750041 * 3 LPIFLAG BIT(1), /* ALLOW LPI */ 63850041 * 3 CHFLAG BIT(1), /* CH1 THRU CH12 */ 63950041 * 3 SIZEFLAG BIT(1), /* SIZE */ 64050041 * 3 COPYFLAG BIT(1), /* COPY */ 64150041 * 3 LINEFLAG BIT(1), /* LINE */ 64250041 * 3 POSFLAG BIT(1), /* POS */ 64350041 * 3 TEXTFLAG BIT(1), /* TEXT */ 64450041 * 3 NAMEFLAG BIT(1), /* MEMBER NAME */ 64550041 * 3 ASGNFLAG BIT(1), /* ASSIGN */ 64650041 * 3 DELFLAG BIT(1), /* DELSEG */ 64750041 * 3 REFFLAG BIT(1), /* REF */ 64850041 * 3 GCMFLAG BIT(1), /* GCM */ 64950041 * 3 GCMLFLAG BIT(1), /* GCMLIST */ 65050041 * 3 LOCFLAG BIT(1), /* LOC */ 65150041 * 3 CGMIDFLG BIT(1), /* CGMID */ 65250041 * 3 NOFLAG BIT(1), /* NO KEYWORDS */ 65350041 * 3 ASTRFLAG BIT(1), /* ASTERISK */ 65450041 * 3 REPFLAG BIT(1), /* REPLACE OPTION */ 65550041 * 2 NOB FIXED(8), /* NUMBER OF BYTES IN KEYWORD.*/ 65650041 * 2 BLDPTR PTR(24), /* POINTER TO BUILD ROUTINE. */ 65750041 * 2 * FIXED(8), /* RESERVED BYTE */ 65850041 * 2 CHKPTR PTR(24), /* POINTER TO CHECK ROUTINE. */ 65950041 * 2 * FIXED(8), /* RESERVED BYTE */ 66050041 * 2 PRTPTR PTR(24), /* POINTER TO PRINT ROUTINE. */ 66150041 * 2 RTNAME CHAR(8); /* KEYWORD NAME. */ 66250041 *@EJECT; 66350041