* % GOTO PWABSL; /* F41448 00020501 MACRO 00020901 &WORK IKJEFPWA 00021000 .* OS RELEASE 20 SUPPORT CODE -- 20035 00021101 .* 00021501 .*A 000205,015620-015640,023400-082372 F41448 00021901 .* 00023901 .* VS RELEASE 1.6 - SUPPORT CODE -- Y01156 00025301 .* VS RELEASE 2.0 - SUPPORT CODE -- Y02666 00026303 .* VS RELEASE 3.0 SUPPORT CODE --Y30NQJN 00027303 .* 00029403 *********************************************************************** 00032803 * * 00039603 AIF ('&WORK' NE 'CSWORK').PWA 00043003 * COMMAND SCAN WORKSPACE * 00046403 AGO .CSWA 00049803 .PWA ANOP 00053203 * PARSE PERMANENT WORKSPACE * 00056603 .CSWA ANOP 00060003 * * 00063003 *********************************************************************** 00066003 SPACE 00070000 &WORK DSECT 00080000 SPACE 00090000 DS 18F SAVE AREA 00100000 ADDRSAVE DS 4F SAVEAREA FOR ADDRESS RTN.Y30NQJN 00101003 P20SAVE DS 4F SAVE AREA FOR IKJEFP20 Y02666 00102002 INTEGER DS 4D WORKAREA FOR P20 CONVERT RTN. 00104002 * YM5578 00107002 SPACE 00110000 PDWORD DS D SCRATCH/SAVE/CONVERT AREA 00120000 * 00130000 ENDINPUT DS A LAST INPUT CHARACTER ADDRESS - 00160000 * USED TO DETERMINE END OF DATA 00170000 * 00180000 * POINTER TO START OF DATA BEING SCANNED SET BY SKIPB SUBROUTINE. ALSO 00181000 * LENGTH OF DATA FIELD. THESE AREAS MUST BE CONTIGUOUS. 00182000 * 00183000 PPOINTR DS A LAST ENTITY START 00184000 * 00185000 PLENGTH DS H LAST ENTITY LENGTH 00186000 * 00186100 RETCODE DS X RETURN CODE AREA 00186400 SPACE 00186500 AIF ('&WORK' NE 'CSWORK').GO 00186700 CSWORKSZ EQU *-CSWORK SIZE OF COMMAND SCAN WORKAREA 00186800 MEXIT 00186900 .GO ANOP 00187000 SUBRWORK DS D SCRATCH/SAVE AREA FOR SUBROUTINE 00187300 * 00188000 XPDL DS A ADDRESS OF PDL 00190000 SPACE 00200000 TEMPSAVE DS A USED TO TEMPORARILY STORE R1 00270000 * BEFORE LINKING TO TRANSLATE 00280000 * ROUTINE 00290000 SPACE 00300000 * 00310000 * PERMANENT WORKSPACE FLAGS. 00320000 * 00330000 PFLAGS DS X FIRST FLAG BYTE 00340000 * 00350000 PFLAGS2 DS X SECOND FLAG BYTE 00360000 * 00370000 PFLAGS3 DS X THIRD FLAG BYTE 00380000 * 00381000 PFLAGS4 DS X FORTH FLAG BYTE 00382000 * 00384001 PFLAGS5 DS X FIFTH FLAG BYTE S21105 00386001 PFLAGS6 DS X SIXTH FLAG BYTE Y01156 00388001 PFLAGS7 DS X SEVENTH FLAG BYTE Y02666 00388402 PFLAGS8 DS X EIGHTH FLAG BYTE Y02666 00388802 SPACE 00390000 * 00470000 * WORKSPACE NEEDED FOR STORAGE ALLOCATION SUBROUTINE. 00480000 * 00490000 PANCHOR DS A ANCHOR FOR STORAGE CHAIN 00500000 * 00510000 PANCHORT DS A INTERAL MSS CHAIN FREE Q ANCHOR 00520000 SPACE 00530000 * 00540000 * PARAMETER LIST FOR CONDITIONAL GETMAIN SUBROUTINE. 00550000 * 00560000 PGETLIST DS 0F * * * * 00570000 * 00580000 PGETLNTH DS F LENGTH REQUESTED 00590000 * 00600000 PGETRADR DS F ADDR IN WHICH ALLOCATED SPACE 00610000 * ADDR IS PLACED 00620000 * 00630000 PGETMDSP DS H MODE AND SUBPOOL 00640000 SPACE 00650000 * 00660000 * THE FIRST INPUT PUSHDOWN STACK. IF THIS STACK FILLS UP A GETMAIN IS 00670000 * ISSUED FOR AN ADDITIONAL STACK, HIS PROCESS CONTINUES INDEFINITLY. 00680000 * THE STACKS ARE BACKWARD CHAINED WITH THE FIRST STACKS CHAIN WORD 00690000 * REMAINING ZERO. EACH NEW ENTRY IN THE STACK CONSISTS OF TWO WORDS, 00700000 * THE FIRST IS THE CONTENTS OF XINPUT, THE SECOND THE CONTENTS OF 00710000 * ENDINPUT. THE NEXT FREE AREA IN THE STACK IS FOUND BY USING PIPDLX 00720000 * AS AN INDEX INTO THE STACK. 00730000 * 00740000 PIPDLCUR DS A ADDRESS OF CURRENT INPUT 00750000 * PUSHDOWN STACK 00760000 * 00770000 PIPDLCHN DS A STORAGE CHAIN - SHOULD BE ZERO 00780000 * 00790000 DS (2*IPDLMAXE)A FIRST INPUT PUSHDOWN STACK 00800000 * 00810000 PIPDLX DS X INDEX TO NEXT FREE AREA IN THE 00820000 * CURRENT PUSHDOWN STACK 00830000 SPACE 00840000 PLINKSV1 DS A SAVE AREA FOR RETURN ADDRESS OF 00850000 * LINK1 ROUTINES WHICH USE 00860000 * LINK2 ROUTINES AS SUBROUTINES 00870000 SPACE 00880000 INVPSAVE DS A BEGINNING ADDR OF PARM 00890000 * USED IF PARM IS INVALID 00900000 * 00910000 * ADDRESSES FOR KEYWORD SCANS. 00920000 * 00930000 PKEYWDPS DS A POINTER TO CURRENT NAME ENTRY 00940000 * 00950000 PKEYWDPC DS A POINTER TO CURRENT IKJKEYWD PCE 00960000 * 00970000 PKEYWDPX DS A TO SAVE IKJKEYWD PCE ADDRESS 00980000 * 00990000 PKEYWDTB DS A PCL RESULT DURING KEYWORD 01000000 * PROCESSING 01010000 * 01020000 PKEYWDPM DS A SAVE AREA FOR PDE DURING 01030000 * KEYWORD SCAN 01040000 SPACE 01050000 * 01060000 PTABLEAD DS A START OF PCL ADDRESS 01070000 SPACE 01080000 PTABLEND DS A END OF PCL ADDRESS 01090000 EJECT 01100000 * 01110000 * THE FOLLOWING FIELDS ARE USED AS A TEMPORARY POSITIONAL PDE. THE 01120000 * FIELDS ARE MOVED FROM HERE TO THE ACTUAL PDE BY THE POSITIONAL EXIT 01130000 * ROUTINE. THE AREAS MUST BE CONTIGUOUS. 01140000 * 01150000 TEMPPDE DS 0F NAME TEMPORARY AREA 01160000 * 01170000 DATAPTR1 DS A POINTER TO STRING, PSTRING, 01180000 * QSTRING, PASSWORD, DSNAME, 01190000 * LOADNAME OR VALUE 01200000 * 01210000 DATALEN1 DS H LENGTH OF ABOVE DATA 01220000 * 01230000 DATAFLA1 DS X FLAG BYTE 01240000 * 01250000 DATAFLB1 DS X TYPE CODE FOR VALUE 01260000 * 01270000 DATAPTR2 DS A POINTER TO MEMBER OR ENTRY NAME 01280000 * 01290000 DATALEN2 DS H LENGTH OF ABOVE DATA 01300000 * 01310000 DATAFLA2 DS X FLAG BYTE 01320000 * 01330000 DATAFLB2 DS X RESERVED BYTE 01340000 * 01350000 DATAPTR3 DS A POINTER TO PASSWORD OR ADDRESS 01360000 * 01370000 DATALEN3 DS H LENGTH OF ABOVE DATA 01380000 * 01390000 DATAFLA3 DS X FLAG BYTE 01400000 * 01410000 DATAFLB3 DS X RESERVED BYTE 01420000 * 01430000 * FOLLOWING FIELDS USED BY ADDRESS 01440000 DATAFLG DS X REGISTER NOTATION FLAGS 01450000 * 01460000 DATASGN DS X SIGN OF FIRST VALUE 01470000 * 01480000 DATAICT DS H INDIRECT ADDRESSING COUNT 01490000 * 01500000 DATAEXP DS A POINTER TO NEXT EXPRESSION VALUE 01510000 * PDE 01520000 * 01530000 DATAUSER DS F USER WORD 01540000 * 01550000 LTPDE EQU *-TEMPPDE LENGTH OF TEMPORARY PDE 01560000 CBADD DS 11F COBOL SUPPORT ADDITIONS F41448 01562001 CBLTPDE EQU *-TEMPPDE LEN OF TEMPPDE FOR COBOL F41448 01564001 EJECT 01570000 SPACE 01580000 ENDBAKUP DS A BACKUP FOR ENDINPUT IF PFSCANX 01590000 * FLAG IS ON 01600000 SPACE 01610000 PDELIM DS C SELF-DEFINED DELIMITER STORED BY 01620000 * DELIMITR PCE ROUTINE 01630000 SPACE 01640000 * 01650000 SPACE 01660000 PPCOUNT DS PL1 POSITIONAL DATA SIZE 01670000 SPACE 01680000 PPDESIZE DS PL1 POSITIONAL PDE SIZE 01690000 SPACE 01700000 PERRCODE DS AL1 INDEX TO RESCAN ADDRESS TABLE 01710000 SPACE 01720000 PKEYWDVL DS AL2 TO SAVE VALUE DURING KEYWORD 01730000 * LOOKUP 01740000 SPACE 01750000 RNG2ADDR DS A ADDR OF 2ND PDE FOR A RANGE 01760000 SPACE 01770000 SEGLIST DS 5F LIST OF MESSAGE SEGMENTS FOR 01780000 * I/O SERVICE ROUTINES 01790000 SPACE 01800000 PREVPDEL DS F USED TO CONTAIN THE PREVIOUS PDE 01810000 * ADDRESS SO THAT THE VALIDITY 01820000 * CHECK ROUTINE CAN FETCH IT 01830000 * WHEN A RETURN CODE OF 4 OR 8 01840000 * IS RETURNED TO IT BY THE USER 01850000 SPACE 01860000 VCEPARAM DS 0F VALIDITY CHECK EXIT PARAMETERS 01870000 PDEADR DS A ADDRESS OF PDE JUST CONSTRUCTED 01880000 * 01890000 USERWORD DS F USER DATA PASSED IN PARSE INPUT 01900000 * PARAMETER LIST 01910000 VALMSG DS F ADDRESS OF SECOND LEVEL MESSAGE 01912000 * FROM VALIDITY CHECK 01914000 SPACE 01920000 MSGCODE DS X OFFSET TO MESSAGE ADDRESS 01930000 SPACE 01940000 * 01950000 * MESSAGE SEGMENT CONTAINING THE LAST PRIMARY MESSAGE ID. THIS IS USED 01960000 * AS SEGMENT ONE OF HELP MESSAGES PASSED TO THE I/O SERVICE ROUTINES. 01970000 * IT INCLUDES THE FOUR BYTE HEADER REQUIRED BY THE I/O ROUTINES AND 01980000 * THE WORD 'ENTER'. 01990000 * 02000000 PRIMSGID DS CL20 PRIMARY MESSAGE SEGMENT 02010000 SPACE 02020000 SAVLSLEN DS H USED TO SAVE THE CORE SIZE 02030000 * REQUESTED BY THE HELP MESSAGE 02040000 * ROUTINE 02050000 SPACE 02060000 PLUSSEG DS CL5 PLUS SIGN MESSAGE SEGMENT 02090000 SPACE 02100000 * 02110000 * SAVE AREAS FOR ADDRESSES OF I/O SERVICE ROUTINES 'LOADED' DURING 02120000 * INITIALIZTION. 02130000 * 02140000 PUTLPTR DS A PUTLINE SERVICE ROUTINE ADDRESS 02150000 * 02160000 PUTGPTR DS A PUTGET SERVICE ROUTINE ADDRESS 02170000 SPACE 02180000 * 02190000 * SAVE AREA FOR PART OF INPUT PARAMETER LIST PASSED TO THE I/O SERVICE 02200000 * ROUTINES. THESE FIELDS MUST BE CONTIGUOUS. 02210000 * 02220000 SRPARAMS DS 0F NAME THE LIST 02230000 * 02240000 UPTADDR DS F FIRST WORD OF INPUT PARAMETERS 02250000 * 02260000 ECTADDR DS F SECOND WORD OF INPUT PARAMETERS 02270000 * 02280000 ECBADDR DS F THIRD WORD OF INPUT PARAMETERS 02290000 * 02300000 DS F FOURTH WORD OF INPUT PARAMETERS 02310000 SPACE 02320000 *********************************************************************** 02340001 * F41448 * 02360001 * ADDITIONS TO PARSE PERMANENT WORKSPACE FOR COBOL F41448 * 02380001 * SYMBOLIC DEBUG SUPPORT F41448 * 02400001 * F41448 * 02404001 *********************************************************************** 02404801 OPEREND DS A PTR TO LAST PCE UNDER OPER 02404901 * F41448 02405001 RSVWDPCE DS A PTR - PCE BEING USED BY IKJRSVWD 02405101 * F41448 02405201 TERMXPCE DS A PTR TO MAJOR TERM PCE F41448 02406001 * F41448 02406801 OPERPCE DS A PTR TO PCE FOR THIS EXPRESSION 02406901 * F41448 02407001 OPERSVE DS A PTR TO LEFT PAREN OF EXPRESSION 02407101 * F41448 02407201 RSVWDSV1 DS A SAVE AREA USED BY IKJRSVWD 02407301 * F41448 02407401 RSVWDSV2 DS A SAVE AREA USED BY IKJRSVWD 02407501 * F41448 02409301 CBLNKSV1 DS A LINK SAVE AREA FOR RETURN ADDRS 02410101 * F41448 02410901 CBLNKSV2 DS A LINK SAVE AREA FOR RETURN ADDRS 02411701 * F41448 02411801 ENDNMPTR DS A PTR TO END OF CURRENT DATANAME 02411901 * F41448 02412201 CHAINPTR DS A PTR TO CHAIN POINTERS OF F41448 02412301 * DATANAME QUALIFIER PDE'S F41448 02412401 * F41448 02412501 PDEPTR DS A PTR TO NEXT AVAIL. SLOT F41448 02412601 * IN TEMPPDE F41448 02412701 * F41448 02413101 AANC DS A STORAGE ANCHORS USED TO F41448 02413901 TANC DS A CONTROL ALLOCATION OF F41448 02414001 OANC DS A PDE'S FOR DATANAME QUAL F41448 02414101 ENDANC DS A IN COR GOTTEN VIA STALOC F41448 02414501 * F41448 02415301 PRMTPTR DS A PTR TO FIRST CHAR OF INV F41448 02415401 * DATA FOR SPEC MSG FORMAT F41448 02415501 * F41448 02415901 OPERLL DS H LEN OF PDE FIELDS UNDER OPER 02416701 * F41448 02416801 MSGAREA EQU * PARMS PASSED TO PROMPT FOR 02416901 * SPECIAL MSG FORMATTING F41448 02417301 MSGLEN DS H LEN OF 1ST SEG FOR SPCMSG F41448 02418101 MSGADDR DS A ADDR OF 1ST SEGMENT FOR SPECMSG 02418201 * F41448 02418301 DIGITCT DS X DIGIT COUNTER FOR STRING LEN 02423001 * F41448 02427001 ELEMNCT DS X NUMBER OF SUBSCRIPTS F41448 02427801 * F41448 02427901 QUALCT DS X NUMBER OF DATANAME QUALIFIERS 02428001 * F41448 02428101 CBFLAGS1 DS X FLAG BYTE ONE F41448 02428201 * F41448 02428301 COBOLMOD EQU X'80' A COBOL MACRO PROCESSOR IS 02428801 * PROCESSING F41448 02429601 OPERMODE EQU X'40' PROCESSING UNDER AN OPER PCE 02429701 SUBSMODE EQU X'20' TERM SUBSCRIPT MODE BIT F41448 02429801 NAMEREQD EQU X'10' TERM - DATANAME EXPECTED NEXT 02429901 ERRORBIT EQU X'08' TERM - ERROR HAS OCCURED F41448 02431801 * F41448 02431901 RSVDPRMT EQU X'04' RSVWD HAS BEEN PROMPTED FOR 02432601 * F41448 02432701 OPERPRMT EQU X'02' EXPRESSION HAS BEEN PROMPTED FOR 02433401 * F41448 02433501 RC16 EQU X'01' A 16 RETURN CODE FROM VALIDITY 02433601 * F41448 02433901 * CHECK HAS BEEN ENCOUNTERED 02446301 * F41448 02446701 CBFLAGS2 DS X SECOND FLAG BYTE F41448 02447101 * F41448 02447501 SPECMSG EQU X'80' SPECIAL FORMAT MSG TO BE F41448 02447901 * F41448 02448001 LFTPAREN EQU X'40' A LEFT PAREN IS TO BE ADDED 02448301 * F41448 02448701 RHTPAREN EQU X'20' A RIGHT PAREN IS TO BE ADDED 02448801 * F41448 02449101 CHAINTRM EQU X'10' A TERM CHAINED UNDER AN OPER 02449201 PARS2IN EQU X'08' IKJPARS2 HAS BEEN LOADED F41448 02449501 * F41448 02449801 PRMTSCAN EQU X'04' USED BY IKJTERM FOR PRMT DATA 02449901 * F41448 02450001 BUFPOPED EQU X'02' FLAG FOR SCANF TO SHOW RECURSION 02450301 * F41448 02450701 RNGADDED EQU X'01' 1ST VALUE OF RNGE HAS BEEN ADDED 02450901 * F41448 02451101 * F41448 02451501 CBFLAGS3 DS X THIRD FLAG BYTE - RESERVED 02451901 * F41448 02452301 FIRSTNAM EQU X'80' 1ST D.N. OF VAR. ENCOUNTERED 02452701 * F41448 02452801 CTFOUND EQU X'40' BEGIN. OF CHN TRM SBSCRPT FND 02453101 * F41448 02453301 BLNKFLAG EQU X'20' OPER PTING TO BLNK FOR INVALID 02453501 * MESSAGE FOR MSGSETUP F41448 02453901 * F41448 02454301 CBFLAGS4 DS X FOURTH FLAG BYTE F41448 02454701 * F41448 02455101 TRANAREA DS H TERM TRANSLATE AREA FOR OF/IN 02455501 * F41448 02455901 CORELEN DS H LEN OF AREA GOTTEN FOR SPEC MSG 02456301 * F41448 02456701 PARS2ADR DS A ADDR OF IKJPARS2 LOAD MODULE 02457101 * F41448 02457501 VCONAD DS A ADDR OF VCON TABLE IN IKJPARS 02457901 * F41448 02458301 GOREGSV DS A RETURN ADDR FROM SUBROUTINES 02458701 * F41448 02459101 TERMBASE DS A SAVE AREA FOR TERM BASEREG 02459501 * F41448 02459901 OPERBASE DS A SAVE AREA FOR OPER BASEREG 02460301 * F41448 02460701 BASE3SV DS A SAVE AREA - PARSE BASE REG 3 02461101 * F41448 02461501 BASE2SV DS A SAVE AREA - PARSE BASE REG 2 02461901 * F41448 02462301 BASE1SV DS A SAVE AREA - PARSE BASE REG 1 02462701 * F41448 02463101 RBASESV1 DS A SAVE AREA - PARSE RBASE F41448 02463501 * F41448 02463901 CBLRET DS A POINT TO RETURN TO IN THE NEW 02464301 * F41448 02464701 * IKJPARS2 LOAD MODULE AFTER 02465001 * F41448 02465101 * EXECUTION OF A PARSE SUBROUTINE 02465201 * F41448 02465501 COREADDR DS A ADDR OF AREA GOTTEN FOR SPECMSG 02465901 * F41448 02466301 AUTOBASE DS A SAVE AREA FOR DATAREG (FOR BSL) 02466701 * F41448 02467101 WORKSAVE DS 4A WORKREG SAVE AREA FOR LINKAGE 02467501 * F41448 02467901 PLINKSV2 DS A SAVE AREA FOR RETURN ADDR FROM 02468301 * VALIDITY CHECK AND CODE4 F41448 02468701 * 02468801 * INFORMATION NEEDED TO SET UP THE MESSAGE FOR SPECIFYING THE 02468901 * KEYWORD FOR WHICH THE SUBFIELD IS BEING PROMPTED FOR Y01156 02469001 * 02469601 KEYPTR DS A KEYWORD PTR Y01156 02470001 KEYLEN DS H KEYWORD LENGTH Y01156 02470101 KEYBUF EQU * KEYWORD MSG BUFFER Y01156 02470201 KEYBUFLN DS H LENGTH OF BUFFER Y01156 02470301 KEYBUFOF DS H OFFSET TO KEYWORD Y01156 02471501 KEYDATA DS CL33 ACTUAL USER KEYWORD Y01156 02473501 DS 0F 02475601 * 02475701 * ALLOCATE SPACE IN WHICH TO MOVE THE L FORM OF THE I/O SERVICE ROUTINE 02476201 * MACROS. 02476701 * 02477201 PUTLINE PUTLINE ,MF=L * * * * 02477701 SPACE 02478201 PUTGET PUTGET ,MF=L * * * * 02478701 SPACE 02479201 DS 0D ALIGN FOR FREEMAIN OF RWORK 02479701 * 02480201 WORKSZ EQU *-&WORK LENGTH OF COBOL WORK AREA + 02480701 * PARSE PREMANENT WORKAREA 02481201 MEND F41448 */ 02481701 % PWABSL: ; 02482201 % DCL WORKSZ CHAR; 02482701 % WORKSZ='LENGTH(PWORK)'; 02483201 % DCL CBLTPDE CHAR; 02483701 % CBLTPDE='LENGTH(TEMPPDE)'; 02484201 % DCL LTPDE CHAR; 02484701 % LTPDE='LENGTH(TEMPPDE2)'; 02485201 /* F41448 */ 02485701 DCL 1 PWORK BASED(PWRKBASE) BDY(DWORD), /* F41448 */ 02486201 /* F41448 */ 02486701 /* PARSE PERMANENT WORKSPACE */ 02487201 /* F41448 */ 02487701 2 DUMMY1, /* USED TO FIND LEN OF CSWORK */ 02488201 4 SAVE1(18) PTR(31), /* SAVE AREA F41448 */ 02488701 4 ADDRSAVE(4) PTR(31), /* SAVEAREA FOR ADDRESS RTN./-*/ 02488803 /* -IKJEFP03 Y30NQJN*/ 02488903 4 P20SAVE(4) PTR(31), /* IKJEFP20 SAVE AREA Y02666 */ 02489102 4 INTEGER(8) PTR(31) BDY(DWORD), /* P20 WORK AREA YM5578 */ 02489402 4 PDWORD(2) PTR(31) BDY(DWORD), /* SCRATCH/SAVE/CONVERT*/ 02489701 6 PDWORD1 CHAR(4), 02490102 6 PDWORD2 PTR(31), 02497102 8 PDWD CHAR(1), 02497302 /* F41448 */ 02497702 4 ENDINPUT PTR(31), /* LAST INPUT CHAR. ADDRESS */ 02498002 /* F41448 */ 02498802 /*USED TO DETERMINE END OF DAT*/ 02499602 /* F41448 */ 02500402 /* POINTER TO START OF DATA BEING SCANNED SET BY SKIPB SUBROUTINE */ 02501202 /* ALSO LENGTH OF DATA FIELD. THESE AREAS MUST BE CONTIGUOUS F41448 */ 02502002 /* F41448 */ 02502802 4 PPOINTR PTR(31), /* LAST ENTITY START F41448 */ 02503602 02504402 4 PLENGTH FIXED(15), /* LAST ENTITY LENGTH F41448 */ 02505202 /* F41448 */ 02506002 4 RETCODE PTR(8), /* RETURN CODE AREA */ 02506802 /* F41448 */ 02507602 2 DUMMY2 BDY(DWORD), /* TO PUT SUBRWORK ON DWRD BDY*/ 02508402 /* F41448 */ 02509202 3 SUBRWORK(2) PTR(31), /* SCRATCH/SAVE AREA */ 02510002 /* F41448 */ 02510802 2 XPDL PTR(31), /* ADDRESS OF PDL */ 02511602 /* F41448 */ 02512402 2 TEMPSAVE PTR(31), /*USED TO TEMPORARILY SAVE R1 */ 02513202 /* F41448 */ 02514002 /*BEFORE LINKING TO TRANSLATE */ 02514802 /* ROUTINE F41448 */ 02515602 02516402 /* PREMANENT WORKSPACE FLAGS F41448 */ 02517202 02518002 2 PFLAGS BIT(8), /* FIRST FLAG BYTE F41448 */ 02518802 /* F41448 */ 02519602 3 PFLIST BIT(1), /* CURRENTLY PROCESSING LIST */ 02520402 /* F41448 */ 02521202 3 PFDEFLT BIT(1), /* INDICATES A DEFAULT TAKEN */ 02522002 /* F41448 */ 02522802 3 PFENDF BIT(1), /* END OF INPUT AREA HAS BEEN */ 02523602 /* REACHED F41448 */ 02524402 /* F41448 */ 02525202 3 ADREXP BIT(1), /* INDICATE ADDRESS EXPRESSION*/ 02526002 /* F41448 */ 02526802 3 HEXBIT BIT(1), /* ADDRESS EXPRESSION CONTAINS*/ 02527602 /* A HEX CHARACTER F41448 */ 02528402 /* F41448 */ 02529202 3 PFBYPAS BIT(1), /* BYPASS MODE IS TO BE ESTAB*/ 02530002 /* F41448 */ 02530802 3 PFNEW BIT(1), /* USED BY ADDRESS ROUTINE TO */ 02531602 /* F41448 */ 02532402 /* DENOTE A NEW VALID ADDRESS */ 02533202 /* F41448 */ 02534002 /* ENTRYNAME (WITH OR WITHOUT */ 02534802 /* F41448 */ 02535602 /* LOADNAME QUALIFICATION */ 02536402 /* F41448 */ 02537202 3 DECBIT BIT(1), /* ADDR EXPRESSION IS DECIMAL */ 02538002 /* F41448 */ 02538802 2 PFLAGS2 BIT(8), /* SECOND FLAG BYTE */ 02539602 /* F41448 */ 02540402 3 PFSKPINV BIT(1), /* VALIDITY CHECK ROUTINE */ 02541202 /* F41448 */ 02542002 /* REQUESTED A REENTER MESSAGE*/ 02542802 /* ONLY F41448 */ 02543602 /* F41448 */ 02544402 3 RNGEVAL1 BIT(1), /* ADDRESS ROUTINE PROCESSED */ 02545202 /* FIRST VAL OF RANGE F41448 */ 02546002 /* PARAMETER F41448 */ 02546802 /* F41448 */ 02547602 3 ONERBIT BIT(1), /* CONTROL BIT USED DURING */ 02548402 /* F41448 */ 02549202 /* SCAN BY ADDRESS ROUTINE */ 02550002 /* F41448 */ 02550802 3 TWORBIT BIT(1), /* CONTROL BIT USED DURING */ 02551602 /* F41448 */ 02552402 /* SCAN BY ADDRESS ROUTINE */ 02553202 /* F41448 */ 02554002 3 RNGEVAL2 BIT(1), /* ADDRESS ROUTINE PROCESSED */ 02554802 /* F41448 */ 02555602 /* SECOND VALUE OF RANGE */ 02556402 /* PARAMETER F41448 */ 02557202 /* F41448 */ 02558002 3 REGBIT BIT(1), /* CONTROL BIT USED DURING */ 02558802 /* F41448 */ 02559602 /* SCAN BY ADDRESS ROUTINE */ 02560402 /* F41448 */ 02561202 3 FLTERBIT BIT(1), /* CONTROL BIT USED DURING */ 02562002 /* F41448 */ 02562802 /* SCAN BY ADDRESS ROUTINE */ 02563602 /* F41448 */ 02564402 3 BREAKBIT BIT(1), /* USED BY ADDRESS ROUTINE TO */ 02565202 /* F41448 */ 02566002 2 PFLAGS3 BIT(8), /* THIRD FLAG BYTE */ 02566802 3 PFSTPRMT BIT(1), /* PROMPT FOR STRING F41448 */ 02567602 /* F41448 */ 02568402 3 PFONE BIT(1), /* INDICATES AT LEAST ONE PDE */ 02569202 /* HAS BEEN BUILT F41448 */ 02570002 /* F41448 */ 02570802 3 LOADBIT BIT(1), /* CONTROL BIT USED BY ADDRESS*/ 02571602 /* F41448 */ 02572402 /* RTN DENOTING LOADNAME DATA */ 02573202 /* F41448 */ 02574002 3 ENTRYBIT BIT(1), /* CONTROL BIT USED BY ADDRESS*/ 02574802 /* F41448 */ 02575602 /* RTN DENOTING ENTRYNAME DATA*/ 02576402 /* F41448 */ 02577201 3 PFNULL BIT(1), /* INDICATES A NULL LINE WAS */ 02597201 /* F41448 */ 02601201 /* ENTERED AFTER A PROMPT */ 02605201 /* F41448 */ 02617201 3 LPRNFND BIT(1), /* USED TO INDICATE A LEFT */ 02637201 /* F41448 */ 02641201 /* PAREN WAS FND BY THE ERROR */ 02645201 /* ROUTINE F41448 */ 02649201 /* F41448 */ 02657201 3 PFSPACE BIT(1), /* USED TO INDICATE A F41448 */ 02677201 /* F41448 */ 02681201 /* POSITIONAL SPACE PARAMETER */ 02685201 /* F41448 */ 02689201 /* WAS ENCOUNTERED SO THAT THE*/ 02693201 /* F41448 */ 02694001 /* SO THAT THE POSITIONAL */ 02694801 /* F41448 */ 02695601 /* STRING RTN KNOWS WHEN TO */ 02696401 /* END THE STRING F41448 */ 02696601 /* F41448 */ 02697201 3 PFMORE BIT(1), /* USED TO INDICATE IF THE */ 02717201 /* F41448 */ 02721201 /* LEFT PAREN OF A SUBFIELD */ 02725201 /* F41448 */ 02729201 /* WAS ALSO USED AS THE LEFT */ 02733201 /* F41448 */ 02734001 /* PAREN OF THE LIST WITHIN */ 02734801 /* THE SUBFIELD F41448 */ 02736401 /* F41448 */ 02737201 2 PFLAGS4 BIT(8), /* FOURTH FLAG BYTE */ 02757201 /* F41448 */ 02761201 3 PFENDLIM BIT(1), /* INDICATES END DILIMETER FOR*/ 02777201 /* F41448 */ 02781201 /* SELF-DILIMITING STRING HAS */ 02785201 /* BEEN FOUND F41448 */ 02789201 3 PFLSTEND BIT(1), /* INDICATES LIST END F41448 */ 02797201 /* F41448 */ 02798001 /* DILIMETER HAS BEEN FOUND */ 02798801 /* F41448 */ 02801201 3 PFVCMSG BIT(1), /* INDICATES A VALIDITY CHECK */ 02817201 /* F41448 */ 02818001 /* ROUTINE HAS SUPPLIED A */ 02818801 /* SECOND LEVEL MESSAG F41448 */ 02820401 /* F41448 */ 02821201 3 PFPDDATA BIT(1), /* INDICATE PROCESSING PROMPT */ 02837201 /* OR DEFAULT DATA F41448 */ 02838801 /* F41448 */ 02841201 3 PFSLASH BIT(1), /* INDICATE DSNAME/USERID RTN */ 02857201 /* F41448 */ 02858001 /* IS SCANNING FOR PASSWORD */ 02858801 /* F41448 */ 02861201 3 PFENDSET BIT(1), /* INDICATES BACKUP POINTER */ 02877201 /* F41448 */ 02877301 /* FOR ENDINPUT HAS BEEN SET */ 02878001 /* F41448 */ 02881201 3 PFNOPOP BIT(1), /* INDICATES STACK IS NOT TO */ 02897201 /* F41448 */ 02897301 /* BE POPPED IF ALL SEPARATORS*/ 02898001 /* IN PROMPT BUFFER F41448 */ 02898801 /* F41448 */ 02901201 3 CKRANGE BIT(1), /* ADDR RTN SHOULD CHECK FOR */ 02917201 /* RANGE F41448 */ 02918001 /* F41448 */ 02921201 2 PFLAGS5 BIT(8), /* FIFTH FLAG BYTE */ 02937202 /* F41448 */ 02941201 3 PFSQSTR BIT(1), /* SPECIAL QSTRING HANDLING */ 02957201 /* DONE AT LEAST ONCE F41448 */ 02958001 /* F41448 */ 02961201 3 INVPRMPT BIT(1), /* CHECK FOR INVALID MSG PRMT */ 02977201 /* F41448 */ 02981201 3 SUBFLG BIT(1), /*CHECK FOR SUBFIELD PROCESSING*/ 02997202 /* F41448 */ 03001201 3 INVFLG BIT(1), /* CHECK FOR INVALID INPUT FOR 03017202 USER IN NOPROMPT MODE */ 03019602 /* F41448 */ 03021201 3 BYPASFLG BIT(1), /*PREVIOUS PCE SPECIFIED BYPAS 03037202 OR PRINT INHIBIT MODE */ 03039602 /* F41448 */ 03041201 3 RD4 BIT(1), /* RESERVED */ 03057201 /* F41448 */ 03061201 3 RD5 BIT(1), /* RESERVED */ 03077201 /* F41448 */ 03081201 3 RD6 BIT(1), /* RESERVED */ 03097201 03117201 2 PFLAGS6 BIT(8), /* SIXTH FLAG BYTE Y01156*/ 03119201 2 PFLAGS7 BIT(8), /* SEVENTH FLAG BYTE Y02666*/ 03119602 2 PFLAGS8 BIT(8), /* EIGHTH FLAG BYTE Y02666*/ 03120002 /* F41448 */ 03121201 /* WORKSPACE NEEDED FOR STORAGE ALLOCATION SUBROUTINE */ 03137201 /* F41448 */ 03161201 2 STORANC CHAR(8), 03171202 4 PANCHOR PTR(31), /* ANCHOR FOR STORAGE CHAIN */ 03177202 /* F41448 */ 03181201 03185201 /* F41448 */ 03189201 4 PANCHORT PTR(31), /* INTERNAL MSS CHAIN FREE */ 03197202 /* F41448 */ 03201201 /* Q ANCHOR */ 03217201 03237201 /* F41448 */ 03241201 /* PARAMETER LIST FOR CONDITIONAL GETMAIN SUBROUTINE */ 03257201 03277201 /* F41448 */ 03281201 2 PGETLIST, 03297201 /* F41448 */ 03301201 5 PGETLNTH FIXED(31), /* LENGTH REQUESTED */ 03317201 /* F41448 */ 03321201 5 PGETRADR PTR(31), /* ADDR IN WHICH ALLOCATED */ 03337201 /* F41448 */ 03341201 /* SPACE ADDR IS PLACED */ 03357201 /* F41448 */ 03361201 5 PGETMDSP FIXED(15), /* MODE AND SUBPOOL */ 03377201 03397201 /* THE FIRST INPUT PUSHDOWN STACK. IF THIS STACK FILLS UP A F41448 */ 03417201 /* GETMAIN IS ISSUED FOR AN ADDITIONAL STACK. THIS PROCESS F41448 */ 03437201 /* CONTINUES INDEFINITELY. THE STACKS ARE BACKWARD CHAINED F41448 */ 03457201 /* WITH THE FIRST STACKS CHAIN WORD REMAINING ZERO.EACH NEW F41448 */ 03477201 /* ENTRY IN THE STACK CONSISTS OF TWO WORDS. THE FIRST IS F41448 */ 03497201 /* THE CONTENTS OF XINPUT,AND THE SECOND IS THE CONTENTS OF F41448 */ 03517201 /* ENDINPUT. THE NEXT FREE AREA IN THE STACK IS FOUND BY F41448 */ 03537201 /* USING PIPDLX AS AN INDEX INTO THE STACK. F41448 */ 03557201 03577201 /* F41448 */ 03581201 2 PIPDLCUR PTR(31), /* ADDRESS OF CURRENT INPUT */ 03597201 /* PUSHDOWN STACK F41448 */ 03617201 /* F41448 */ 03621201 2 PIPDLCHN PTR(31), /* STORAGE CHAIN - SHOULD */ 03637201 2 NME(20) PTR(31), /*FIRST INPUT PUSHDOWN F41448 */ 03657201 /* STACK F41448 */ 03677201 /* F41448 */ 03681201 2 PIPDLX PTR(8), /*INDEX TO NEXT FREE AREA IN */ 03697201 /* F41448 */ 03701201 /*CURRENT PUSHDOWN STACK */ 03717201 /* F41448 */ 03721201 2 PLINKSV1 PTR(31), /*SAVE AREA FOR RETURN ADDRESS*/ 03737201 /* F41448 */ 03741201 /*OF LINK1 ROUTINES WHICH USE */ 03757201 /* F41448 */ 03761201 /*LINK2 ROUTINES AS SUBRTNS */ 03777201 /* F41448 */ 03781201 2 INVPSAVE PTR(31), /*BEGINNING ADDR OF PARM -USED*/ 03797201 /*IF PARM IS INVALID F41448 */ 03817201 /* ADDRESSES FOR KEYWORD SCANS F41448 */ 03837201 /* F41448 */ 03857201 2 PKEYWDPS PTR(31), /*PTR TO CURRENT NAME ENTRY */ 03877201 /* F41448 */ 03897201 2 PKEYWDPC PTR(31), /*PTR TO CURRENT IKJKEYWD PCE */ 03917201 /* F41448 */ 03921201 2 PKEYWDPX PTR(31), /*TO SAVE IKJKEYWD PCE ADDR */ 03937201 /* F41448 */ 03941201 2 PKEYWDTB PTR(31), /*PCL RESULT DURING KEYWORD */ 03957201 /*PROCESSING F41448 */ 03977201 /* F41448 */ 03981201 2 PKEYWDPM PTR(31), /*SAVE AREA FOR PDE DURING */ 03997201 /*KEYWORD PROCESSING F41448 */ 04017201 2 PTABLEAD PTR(31), /*START OF PCL ADDRESS F41448 */ 04037201 2 PTABLEND PTR(31), /*END OF PCL ADDRESS F41448 */ 04057201 /* F41448 */ 04077201 /* THE FOLLOWING FIELDS ARE USED AS TEMPORARY POSITIONAL PDE.F41448 */ 04097201 /* THE FIELDS ARE MOVED FROM HERE TO THE ACTUAL PDE BY THE F41448 */ 04117201 /* POSITIONAL EXIT ROUTINE. THE AREAS MUST BE CONTIGUOUS F41448 */ 04137201 /* F41448 */ 04157201 2 TEMPPDE, /* NAME OF TEMPORARY AREA */ 04177201 4 TEMPPDE2, /*LEN FOR NORMAL PARSE F41448 */ 04197202 /* F41448 */ 04201201 7 TEMPFLD1, 04211202 9 DATAPTR1 PTR(31), /*PTR TO STRING, PSTRING */ 04217202 /* F41448 */ 04221201 /*QSTRING,PASSWORD,DSNAME */ 04237202 /*LOADNAME, OR VALUE F41448 */ 04257202 9 DATALEN1 FIXED(15), /*LENGTH OF ABOVE DATA F41448 */ 04277202 9 DATAFLA1 BIT(8), /*FLAG BYTE F41448 */ 04297202 9 DATAFLB1 BIT(8), /*TYPE CODE FOR VALUE F41448 */ 04317202 /* F41448 */ 04321201 7 TEMPFLD2, 04331202 9 DATAPTR2 PTR(31), /*PTR TO MEMBER OR ENTRY NAME */ 04337202 9 DATALEN2 FIXED(15), /*LENGTH OF ABOVE DATA F41448 */ 04357202 9 DATAFLA2 BIT(8), /*FLAG BYTE F41448 */ 04377202 9 DATAFLB2 BIT(8), /*RESERVED BYTE F41448 */ 04397202 /* F41448 */ 04401201 7 TEMPFLD3, 04411202 9 DATAPTR3 PTR(31), /*PTR TO PASSWORD OR ADDRESS */ 04417202 9 DATALEN3 FIXED(15), /*LENGTH OF ABOVE DATA F41448 */ 04437202 9 DATAFLA3 BIT(8), /*FLAG BYTE F41448 */ 04457202 9 DATAFLB3 BIT(8), /*RESERVED BYTE F41448 */ 04477202 /* F41448 */ 04481201 9 DATAFLG BIT(8), /*REGISTER NOTATION FLAGS */ 04497202 9 DATASGN BIT(8), /*SIGN OF FIRST VALUE F41448 */ 04517202 /* F41448 */ 04521201 9 DATAICT FIXED(15), /*INDIRECT ADDRESSING COUNT */ 04537202 /* F41448 */ 04541201 9 DATAEXP PTR(31), /*PTR TO NEXT EXPRESSION */ 04557202 /* VALUE PDE F41448 */ 04577202 9 DATAUSER FIXED(31), /*USER WORD F41448 */ 04597202 /* F41448 */ 04601201 4 CBADD(11) PTR(31), /*COBOL ADDITIONS TO PARSE */ 04617202 /*TEMPORARY PDE F41448 */ 04637201 /* F41448 */ 04641201 2 ENDBAKUP PTR(31), /*BACKUP FOR ENDINPUT IF */ 04657201 /* PFSCANX FLAG IS ON F41448 */ 04677201 /* F41448 */ 04681201 2 PDELIM CHAR(1), /*SELF-DEFINED DELIMETER */ 04697201 /* F41448 */ 04701201 /*STORED BY DELIMETER ROUTINE */ 04717201 2 PPCOUNT PTR(8), /*POSITIONAL DATA SIZE F41448 */ 04737201 2 PPDESIZE PTR(8), /*POSIITONAL PDE SIZE F41448 */ 04757201 /* F41448 */ 04761201 2 PERRCODE PTR(8), /*INDEX TO RESCAN ADDR TABLE */ 04777201 2 PKEYWDVL FIXED(15), /*TO SAVE VALUE DURING F41448 */ 04797201 /* KEYWORD LOOKUP F41448 */ 04817201 /* F41448 */ 04821201 2 RNG2ADDR PTR(31), /*ADDR OF 2ND PDE FOR A RANGE */ 04837201 /* F41448 */ 04841201 2 SEGLIST(5) PTR(31), /*LIST OF MESSAGE SEGMENTS */ 04857201 /* F41448 */ 04861201 /* FOR I/O SERVICE ROUTINES */ 04877201 /* F41448 */ 04881201 2 PREVPDEL PTR(31), /*USED TO CONTAIN THE PREV- */ 04897201 /* F41448 */ 04901201 /*IOUS PDE ADDRESS SO THAT */ 04917201 /* F41448 */ 04921201 /*THE VALIDITY CHECK ROUTINE */ 04937201 /* F41448 */ 04941201 /*CAN FETCH IT WHEN A RETURN */ 04957201 /* F41448 */ 04961201 /*CODE OF 4 OR 8 IS RETURNED */ 04977201 /*TO IT BY THE USER F41448 */ 04997201 /* F41448 */ 05001201 2 VCEPARAM, /*VALIDITY CHECK EXIT PARAM- */ 05017201 /* ETERS F41448 */ 05037201 11 PDEADR PTR(31), /*ADDRESS OF PDE JUST F41448 */ 05057201 /* CONSTRUCTED F41448 */ 05077201 /* F41448 */ 05081201 11 USERWORD FIXED(31), /*USER DATA PASSED IN PARSE */ 05097201 /* F41448 */ 05101201 /* INPUT PARAMETER LIST */ 05117201 /* F41448 */ 05121201 11 VALMSG PTR(31), /*ADDRESS OF SECOND LEVEL MSG */ 05137201 /* FROM VALIDITY CHECK F41448 */ 05157201 11 MSGCODE PTR(8), /*OFFSET TO MSG ADDRES F41448 */ 05177201 /* MESSAGE SEGMENT CONTAINING THE LAST PRIMARY MESSAGE ID. F41448 */ 05197201 /* THIS IS USED AS SEGMENT 1 OF HELP MESSAGES PASSED TO THE F41448 */ 05217201 /* I/O SERVICE ROUTINES. IT INCLUDES THE FOUR BYTE HEADER F41448 */ 05237201 /* REQUIRED BY THE I/O ROUTINES, AND THE WORD 'ENTER'. F41448 */ 05257201 /* F41448 */ 05277201 2 PRIMSGID CHAR(20), /* PRIMARY MESSAGE SEGMENT */ 05297201 /* F41448 */ 05301201 2 SAVLSLEN FIXED(15), /* USED TO SAVE THE CORE SIZE */ 05317201 /* F41448 */ 05321201 /* REQUESTED BY THE HELP */ 05337201 /* MESSAGE ROUTINE. F41448 */ 05357201 /* F41448 */ 05361201 2 PLUSSEG CHAR(5), /* PLUS SIGN MESSAGE SEGMENT */ 05377201 /* F41448 */ 05397201 /* F41448 */ 05417201 /* SAVE AREAS FOR ADDRESSES OF I/O SERVICE ROUTINES 'LOADED' DURING*/ 05437201 /* INITIALIZATION F41448 */ 05457201 /* F41448 */ 05477201 /* */ 05497201 2 PUTLPTR PTR(31), /* NAME THE LIST */ 05517201 2 PUTGPTR PTR(31), /* PTR TO IKJPTGT RTN F41448 */ 05537201 /* F41448 */ 05541201 2 UPTADDR PTR(31), /* FIRST WORD OF INPUT PARMS */ 05557201 /* F41448 */ 05561201 2 ECTADDR PTR(31), /* SECOND WORD OF INPUT PARMS */ 05577201 /* F41448 */ 05581201 2 ECBADDR PTR(31), /* THIRD WORD OF INPUT PARMS */ 05597201 /* F41448 */ 05601201 2 * PTR(31), /* FOURTH WORD OF INPUT PARMS */ 05617201 05637201 /* F41448 */ 05641201 2 OPEREND PTR(31), /* PTR TO LAST PCE UNDER OPER */ 05657201 05677201 /* F41448 */ 05681201 2 RSVWDPCE PTR(31), /* PTR TO PCE BEING USED BY */ 05697201 /* IKJRSVWD F41448 */ 05717201 05737201 /* F41448 */ 05741201 2 TERMXPCE PTR(31), /* PTR TO MAJOR TERM */ 05757201 05777201 /* F41448 */ 05781201 2 OPERPCE PTR(31), /* PTR TO CURRENT OPER PCE */ 05797201 05817201 /* F41448 */ 05821201 2 OPERSVE PTR(31), /* PTR TO LEFT PAREN OF EXPR.*/ 05837201 05857201 2 RSVWDSV1 PTR(31), /* LINK REG. SAV AREA F41448 */ 05877201 05897201 2 RSVWDSV2 PTR(31), /* LINK REG. SAVE AREA F41448 */ 05917201 05937201 2 CBLNKSV1 PTR(31), /* LINK REG. SAVE AREA F41448 */ 05957201 05977201 2 CBLNKSV2 PTR(31), /* LINK REG. SAVE AREA F41448 */ 05997201 06017201 /* F41448 */ 06021201 2 ENDNMPTR PTR(31), /* PTR TO END OF CURRENT */ 06037201 /* F41448 */ 06041201 /* DATANAME BEING SCANNED */ 06057201 06077201 /* F41448 */ 06081201 2 CHAINPTR PTR(31), /*PTR TO CHAIN WD FOR DATANAME*/ 06097201 /* QUALIFIER PDE'S F41448 */ 06117201 06137201 /* F41448 */ 06141201 2 PDEPTR PTR(31), /* PTR TO NEXT AVAIL. SPACE IN*/ 06157201 /* THE TEMPPDE F41448 */ 06177201 06197201 /* F41448 */ 06201201 2 AANC PTR(31), /* ANCHORS TO CONTROL THE */ 06217201 /* F41448 */ 06221201 2 TANC PTR(31), /* ALLOCATION OF DATANAME */ 06237201 /* F41448 */ 06241201 2 OANC PTR(31), /* QUALIFIER PDE'S - IN CORE */ 06257201 /* F41448 */ 06261201 2 ENDANC PTR(31), /* GOTTEN VIA STALOC ROUTINE */ 06277201 06297201 /* F41448 */ 06301201 2 PRMTPTR PTR(31), /* PTR TO START OF INVALID */ 06317201 /* F41448 */ 06321201 /* DATA FOR SPECIAL MSG. */ 06337201 06357201 /* F41448 */ 06361201 2 OPERLL FIXED(15), /*LEN OF PDE FLDS UNDER OPER */ 06377201 06397201 /* F41448 */ 06401201 2 MSGAREA BDY(BYTE), /* PARMS PASSED TO PROMPT FOR */ 06417201 /* F41448 */ 06421201 /* SPECIAL MSG. CONSTRUCTION */ 06437201 /* F41448 */ 06441201 7 MSGLEN FIXED(15), /* LENGTH OF FIRST SEGMENT */ 06457201 /* F41448 */ 06461201 7 MSGADDR PTR(31), /* ADDR OF FIRST SEGMENT */ 06477201 06497201 /* F41448 */ 06501201 2 DIGITCT PTR(8), /* DIGIT COUNTER FOR STRINGS */ 06517201 06537201 /* F41448 */ 06541201 2 ELEMNCT PTR(8), /* NUMBER OF SUBSCRIPTS */ 06557201 06577201 /* F41448 */ 06581201 2 QUALCT PTR(8), /* NUMBER OF QUALIFIERS */ 06597201 06617201 2 CBFLAGS1 BIT(8), /* FIRST FLAG BYT F41448 */ 06637201 /* F41448 */ 06641201 7 COBOLMOD BIT(1), /* COBOL PROCESSING SWITCH */ 06657201 /* F41448 */ 06661201 7 OPERMODE BIT(1), /* EXPRESSION PROCESSING SW */ 06677201 /* F41448 */ 06681201 7 SUBSMODE BIT(1), /* TERM - SUBSCRIPT MODE SW */ 06697201 /* F41448 */ 06701201 7 NAMEREQD BIT(1), /* TERM - DATANAME EXPECTED */ 06717201 /* F41448 */ 06721201 7 ERRORBIT BIT(1), /* TERM - ERROR HAS OCCURED */ 06737201 /* F41448 */ 06741201 7 RSVDPRMT BIT(1), /* RSVWD HAS BEEN PRMPTED FOR */ 06757201 7 OPERPRMT BIT(1), /* EXPRESSION HAS BEEN F41448 */ 06777201 /* F41448 */ 06781201 /* PROMPTED FOR BY OPER */ 06797201 /* F41448 */ 06801201 7 RC16 BIT(1), /* A 16 RETURN CODE HAS BEEN */ 06817201 /* F41448 */ 06821201 /* ENCOUNTERED FROM VALIDITY */ 06837201 /* CHECK ROUTINE F41448 */ 06857201 06877201 2 CBFLAGS2 BIT(8), /* SECOND FLAG BYTE F41448 */ 06897201 /* F41448 */ 06901201 7 SPECMSG BIT(1), /* SPECIAL MSG. FORMAT IS TO */ 06917201 /* F41448 */ 06921201 /* BE USED IN PROMPTING */ 06937201 /* F41448 */ 06941201 7 LFTPAREN BIT(1), /* A LEFT PAREN IS TO BE */ 06957201 /* F41448 */ 06961201 /* ADDED TO SPECIAL MSG */ 06977201 /* F41448 */ 06981201 7 RHTPAREN BIT(1), /* A RIGHT PAREN IS TO BE */ 06997201 /* F41448 */ 07001201 /* ADDED TO SPECIAL MSG. TEXT */ 07017201 /* F41448 */ 07021201 7 CHAINTRM BIT(1), /* A TERM CHAINED FROM AN */ 07037201 /* F41448 */ 07041201 /* OPER IS BEING PROCESSED */ 07057201 /* F41448 */ 07061201 7 PARS2IN BIT(1), /* PARS2 HAS BEEN LOADED */ 07077201 /* F41448 */ 07081201 7 PRMTSCAN BIT(1), /* USED BY TERM FOR PRMT DATA */ 07097201 /* F41448 */ 07101201 7 BUFPOPED BIT(1), /* RECURSION IN SCANF ROUTINE */ 07117201 /* F41448 */ 07121201 7 RNGADDED BIT(1), /* 1ST VALUE OF RNG ADDED */ 07137201 07157201 2 CBFLAGS3 BIT(8), /* FLAG BYTE THREE F41448 */ 07177201 /* F41448 */ 07181201 7 FIRSTNAM BIT(1), /* 1ST DN. OF VAR ENCOUNTERED */ 07197201 /* F41448 */ 07201201 7 CTFOUND BIT(1), /*BEGIN. OF CHNTRM SBSCRPT FND*/ 07217201 /* F41448 */ 07221201 7 BLNKFLAG BIT(1), /* OPER PTING AT BLNK FOR */ 07237201 /* INVALID MSG. FORMAT F41448 */ 07257201 07277201 /* F41448 */ 07281201 2 CBFLAGS4 BIT(8), /* FLAG BYTE FOUR - RSVD */ 07297201 07317201 /* F41448 */ 07321201 2 TRANAREA CHAR(2) BDY(HWORD),/* TRANSLATE AREA FOR TERM */ 07337201 07357201 2 CORELEN FIXED(15), /* RESERVED F41448 */ 07377201 07397201 /* F41448 */ 07401201 2 PARS2ADR PTR(31), /* ADDR OF IKJPARS2 LOAD MOD */ 07417201 07437201 /* F41448 */ 07441201 2 VCONAD PTR(31), /*ADDR OF VCON TAB IN IKJPARS */ 07457201 07477201 /* F41448 */ 07481201 2 GOREGSV PTR(31), /*RETURN ADDR FROM SUBROUTINE */ 07497201 07517201 /* F41448 */ 07521201 2 TERMBASE PTR(31), /*TERM BASE REG SAVE AREA */ 07537201 07557201 /* F41448 */ 07561201 2 OPERBASE PTR(31), /*OPER BASE REG SAVE AREA */ 07577201 07597201 /* F41448 */ 07601201 2 BASE3SV PTR(31), /*SAVE AREA - PARSE BASE REG3 */ 07617201 07637201 /* F41448 */ 07641201 2 BASE2SV PTR(31), /*SAVE AREA - PARSE BASE REG2 */ 07657201 07677201 /* F41448 */ 07681201 2 BASE1SV PTR(31), /*SAVE AREA - PARSE BASE REG1 */ 07697201 07717201 /* F41448 */ 07721201 2 RBASESV PTR(31), /*SAVE AREA - PARSE RBASE */ 07737201 07757201 /* F41448 */ 07761201 2 CBLRET PTR(31), /* POINT TO RETURN TO IN THE */ 07777201 /* F41448 */ 07781201 /* NEW IKJPARS2 LOAD */ 07797201 /* F41448 */ 07801201 /* AFTER EXECUTION OF ANY */ 07817201 /* F41448 */ 07821201 /* SUBROUTINE IN IKJPARS */ 07837201 /* F41448 */ 07841201 2 COREADDR PTR(31), /* ADDR OF CORE GOTTEN FOR MSG*/ 07857201 07877201 /* F41448 */ 07881201 2 AUTOBASE PTR(31), /*SAVE AREA FOR DATAREG (BSL) */ 07897201 07917201 /* F41448 */ 07921201 2 WORKSAVE(4) PTR(31), /* WORKREG SAVE AREA -LINKAGE */ 07937201 07957201 /* F41448 */ 07961201 2 PLINKSV2 PTR(31), /* RETURN ADDR SAVE AREA FROM */ 07977201 /* F41448 */ 07981201 /* VALIDITY CHECK AND CODE4 */ 07997201 /* F41448 */ 08017201 2 KEYPTR PTR(31), /* KEYWORD PTR Y01156*/ 08027201 2 KEYLEN FIXED(15), /* USER KEYWORD LENGTH Y01156*/ 08029201 2 KEYBUF CHAR(37) BDY(HWORD), /* 2ND SEGMENT FOR SUBFIELD- 08031203 PROMPT Y01156*/ 08031601 6 KEYBUFLN FIXED(15), /* ENTIRE SEGMENT LENGTHY01156*/ 08033201 6 KEYBUFOF FIXED(15), /* OFFSET IN PRIMARY MSGY01156*/ 08035201 6 KEYDATA CHAR(33); /* USER ENTERED KEYWORD Y01156*/ 08035601 /* ALLOCATE SPACE IN WHICH TO MOVE THE L FORM OF THE I/O F41448 */ 08037201 /* SERVICE ROUTINE MACROS. F41448 */ 08057201 /* F41448 */ 08077201 GENERATE DATA; 08097201 DS 0F 08107201 PUTLINE PUTLINE ,MF=L * * * * F41448 08117201 SPACE 08137201 PUTGET PUTGET ,MF=L * * * * F41448 08157201 SPACE 08177201 DS 0D ALIGN FOR FREEMAIN OF RWORK 08197201 @ENDGEN 08217201 /* END OF IKJEFPWA F41448 */ 08237201