MACRO 00001000 EDCB 00002000 PUSH PRINT 00002100 AIF ('&SYSPARM' NE 'SUP').ACC01 00002200 PRINT OFF,NOGEN 00002300 .ACC01 ANOP 00002400 * USED BY CMS EDIT MODULES TO DEFINE COMMON FREE STORAGE CONTROL 00003000 * BLOCKS. 00004000 * 00005000 EDCB DSECT 00006000 DS 0F 00007000 SPACE 1 00008000 BLOC EQU * 00009000 FNAME DS CL8 FILENAME 00010000 FTYPE DS CL8 FILETYPE 00011000 FMODE DS CL2 ' FILEMODE 00012000 FV DS CL1 RECORD FORMAT 00013000 FLAG DS CL1 FLAGS FOR LINE MONITORING HRC340F 00014000 FLAG2 DS CL1 MISC. FLAGS HRC340F 00014010 CASESW DS CL1 CASE SETTING 00015000 TRUNCOL DS H COLUMN OF TRUNCATION 00016000 ZONE1 DS H BEGINNING ZONE (INITIALIZE TO COL 00017000 ZONE2 DS H END ZONE 00018000 VERCOL1 DS H VERIFY COLUMN 1 00019000 VERCOL2 DS H VERIFY COLUMN 2 00020000 VERLEN DS H VERIFY LENGTH 00021000 LRECL DS H LOGICAL RECORD LENGTH HRC340F 00022100 TABS DS 26AL1 A MAXIMUM OF 25 TABS IS ALLOWED HRC340F 00022200 ENDTABS EQU * END OF TABS HRC340F 00022300 SEQNAME DS CL3 NAME, IF NAY, FOR SERIALIZATION HRC340F 00022400 CARDINCR DS F INCREMENT FOR SERIALIZATION 00023000 LMSTART DS H WHERE LINE NUMS START 00024000 LMINCR DS H AUTO. LINE NUMS DEFAULT INCR. 00025000 SCRBUFAD DS F ADDR OF GETMAIN BUFFER HRC340F 00026100 PADCHAR DS CL1 '0' ON RIGHT, ' ' ON LEFT 00031000 ENDBLOC EQU * END OF BLOCX 00032000 SPACE 1 00033000 *** PADBUF MUST REMAIN DIRECTLY BEHIND PADCHAR *** 00034000 PADBUF DS 9C PAD CHARACTERS 00035000 SPACE 1 00036000 PTRCONS EQU * SAME AS PTRCONS IN DMSEDI 00037000 SPACE 1 00038000 PTR1 DS 2F 'TOP' POINTER (FOR DUMMY TOP LINE 00039000 PTR2 DS F CURRENT LINE POINTER 00040000 PTR3 DS F POINTER TO BOTTOM LINE 00041000 AEXTEND DS F POINTER TO END OF USED AREA OF CO 00042000 CORITEM DS F NUMBER OF BYTES FOR ONE LINE IN C 00043000 SPARES DS F NUMBER OF SPARE LINES 00044000 FPTR DS F FREE-LIST POINTER 00045000 ITEM DS F ITEM LENGTH 00046000 SPACE 1 00047000 AFSTFNRD DS F ANCHOR FOR STACKED LINES UPON ENT 00048000 SPACE 1 00049000 FREELEN DS F LENGTH OF FREE STORAGE 00050000 FREEAD DS F ADDRESS OF FREE STORAGE 00051000 EDRET DS F CMS RETURN ADDRESS 00052000 EDMSK DS F DMSSCR EDIT MASK 00053000 MAINAD DS F LOADSYS ADR / 0 IF LOADMOD 00054000 SPACE 1 00055000 EPTRCONS EQU * 00056000 SPACE 1 00057000 AUTOREG DS 13F AUTOCHEK SAVE AREA 00058000 CARDNO DS F SEQ.NO.SAVE AREA 00059000 COUNT DS F NUMBER OF CHARS IN EDLIN 00060000 LMCURR DS 2F PROMPTER CURRENT LINE NO. 00061000 SPACE 1 00063000 BUFFL DS F LENGTH OF STRING (EDC) 00064000 BUFFA DS F ADR OF STRING (EDC) 00065000 CANSAV DS 9F REGISTER SAVE (EDC) 00066000 DUALNOS DS CL240 TEMP STRING BUFFER (EDC) 00067000 SPACE 1 00068000 DS 0D 00069000 DECIMAL DS F USED BY DECBIN & BINDEC 00070000 HALF DS F BINDEC ONLY EDITS 4 CHARS 00071000 REGSAV DS 5F REGISTER SAVE AREA 00072000 REGSAVX DS 3F REGISTER SAVE AREA 00073000 REPCNT DS F 'FOR' COUNT 00074000 SAVEAR DS 15F DMSSCR SAVE AREA 00075000 XYCNT DS F X OR Y EXECUTION COUNT 00076000 CHNGNUM DS F NO. OF LINES TO CHANGE 00077000 REG14 DS F USED TO SAVE R14 HRC340F 00077010 LOC14 DS A HRC340F 00077020 TUBEFLAG DS X VIRTUAL CONSOLE IS TUBE HRC340F 00077030 ERRFLAG DS X USED FOR ERROR HRC340F 00077040 HLDPTR2 DS F HRC340F 00077050 HLDLINNO DS H HRC340F 00077060 SPACE 1 00078000 TIN DS 0F WAITRD PLIST 00079000 DS CL8 'WAITRD' 00080000 DS X '1' FOR CONSOLE NO. 1 00081000 AEDLIN DS 3X A(EDLIN) 00082000 CASEREAD DS C DEFAULT TO UPPER CASE 00083000 DS 3X LENGTH PUT HERE 00084000 SPACE 1 00085000 TOUT DS 0F TYPLIN PLIST 00086000 DS CL8 'TYPLIN' 00087000 DS X '1' FOR CONSOLE NO. 1 00088000 DS 3X ADDRESS GOES HERE 00089000 DS C 'B' FOR BLACK RIBBON 00090000 TYPFLG DS X X'20' MAX LENGTH OVERRIDE 00091000 DS H LENGTH GOES HERE 00092000 CRBIT EQU X'80' SUPPRESS CARRIAGE RETURN 00093000 SPACE 1 00094000 IOLIST DS 0F (INITIAL. FOR 'STATE' OF SOURCE) 00095000 DS CL8 'STATE' 00096000 IOID DS CL8 'EDIT' 00097000 DS CL8 'CMSUT1' 00098000 IOMODE DS CL2 'A1' 00099000 DS H 00100000 IOAD DS CL4 '****' DON'T ALLOW '*'S 00101000 DS F '133' (XINSCRIPT USE 'LINE') 00102000 *CMPFLG EQU PLSTFLGS HRC340F 00102010 DS CL2 00103000 RECS DS H '1' (XINSCRIPT 1 LINE AT A TIME) 00104000 DS F 00105000 SPACE 1 00106000 ALTLIST DS 0F 00107000 DS CL8 'RENAME' 00108000 EDWORK DS CL8 'EDIT' 00109000 DS CL8 'CMSUT1' 00110000 ALTMODE DS CL8 'A1' 00111000 DS CL8 00112000 DS CL8 00113000 DS CL2 '*' 00114000 DS CL6 00115000 DS 8X 'FF' FENCE 00116000 SPACE 1 00117000 STACKAT DS 0F PLIST TO STACK FIFO 00118000 DS CL8 'ATTN' 00119000 DS CL4 'FIFO' 00120000 STACKATL DS F LGTH & ADR OF LINE TO STACK 00121000 SPACE 1 00122000 ATTN DS 0F 00123000 DS CL8 'ATTN' 00124000 DS CL4 'LIFO' 00125000 ATTNLEN DS F LGTH & ADR OF LINE TO STACK 00126000 SPACE 1 00127000 RENLIST DS 0F RENUM PLIST 00128000 DS CL8 'RENUM' 00129000 RPLIST DS CL12 FILEID 00130000 STRTNO DS F STARTING NUMBER 00131000 INCRNO DS F INCREMENT NUMBER 00132000 AINCORE DS F INCORE COPY ADDRESS 00133000 FSIZE DS F RECORD LENGTH 00134000 SPACE 1 00135000 DECLTH DS D DMSSCR WORK AREA 00136000 RANGE DS D MESSAGE DATA AREA 00137000 SPACE 1 00138000 RESVD1 DS D RESERVED FOR FUTURE USE @VA05027 00139100 CMDBLOK DS X X'19' 00140000 BUFAD DS 3X BUFFER ADDRESS 00141000 FLG DS X CCW FLAG 00142000 CTL DS X CONTROL BYTE 00143000 WRCOUNT DS H WRITE COUNT 00144000 SPACE , HRC340F 00144010 * HRC340F 00144015 SPACE 3 HRC340F 00144020 RUNLVL DC F'0',F'1' LEVEL OF RUN DEPTH, CONSTANT HRC340F 00144025 RUNSAVE DS 1F SAVE RETURN CODE WHILE QUITTING HRC340F 00144030 QUITFLG DS 1X NORMAL EXEC QUIT FLAG HRC340F 00144035 AAFREEST DS F ADDR OF CURR. RUN FREE STORAGE HRC340F 00144040 ANEXT DS F ADDR. OF 'NEXT' IN EDIT HRC340F 00144045 AEDLIN1 DS F ADDR. OF EDLIN (4 BYTE FORM) HRC340F 00144050 ATRNSTBL DS F ADDR. OF SETCHAR TRANS. TBL. HRC340F 00144055 LASTPUT DS CL18 'EDIT CMSUT2 A1' HRC340F 00144060 PUTCNT DS H HRC340F 00144065 GETPUT DS X 'FF' -0 LAST USE A GET FF LAST USE G928C0 00144070 GETORPUT DS X '0' INTERNAL COMMUNICATION FLAG HRC340F 00144075 LASTGET DS CL18 FID OF LAST NON-STANDARD GET HRC340F 00144080 LASTCNT DS 2H LINE COUNT AND NUMBER HRC340F 00144085 PFSETCMD DS CL6 'SET PF' HRC340F 00144090 PFTABNO DS CL2 HRC340F 00144095 DS CL5 'TAB' HRC340F 00144100 PFTABSET DS (ENDTABS-TABS)CL4 ' ' HRC340F 00144105 COLLINUM DS 1X LINE NUMBER FOR GRAPHIC COLUMN DISPG928C0 00144110 GLOBAL DS CL5 RECURSION LEVEL FOR &GLOBAL HRC340F 00144115 GLOBAL0 DS 10PL5 GLOBAL VARIABLES FOR RUN FILES HRC340F 00144120 DS 2D RESERVED HRC340F 00144125 FWDPNT DS 1F EDCB FORWARD POINTER HRC340F 00144130 BACKPNT DS 1F BACK POINTER FOR MULTI-LVL HRC340F 00144135 NUMSTRSV DS 2F SAVE AREA FOR NUMSTAR HRC340F 00144140 DS 3X RESERVED HRC340F 00144145 EDITLVL DS X CURRENT EDIT LEVEL (EBCDIC) HRC340F 00144150 LINSTART DS F ADDR. OF START OF LINE STORAGE HRC340F 00144155 COLBUF DS F BUFR ADDR OF COLUMN DISPLAY LINE HRC340F 00144160 SPACE 1 00145000 GIOPLIST DS 0F DMSSCR PLIST FOR DMSGIO 00146000 BUFFLOC DS F BUFFER LOCATION 00147000 ALINELOC DS F A(LINELOC) 00148000 ANUMLOC DS F A(NUMLOC) 00149000 AFLAGLOC DS F A(FLAGLOC) 00150000 SPACE 1 00151000 TRNCNUM DS F NO. OF LINES TRUNCATED @VA04193 00151500 AUTOCNT DS H AUTOSAVE PARAMETER 00152000 AUTOCURR DS H CURRENT MODIFICATION COUNT 00153000 CHNGCNT DS H TEMP AREA FOR CHANGE 00154000 DITCNT DS H NO. LINES STACKED BY DITTO 00155000 SPACE 1 00156000 EDCT DS H NEXT CHAR IN EDLIN 00157000 LINELOC DS H DISPLAY LINE NUMBER 00158000 NUMLOC DS H DISPLAY COUNT 00159000 SAVCNT DS H SPOT TO SAVE COUNT FOR DITTO 00160000 TVERCOL1 DS H TEMP AREA FOR VERIFY COL 1 00161000 TVERCOL2 DS H TEMP AREA FOR VERIFY COL 2 00162000 ALCHAR1 DS C TEMP USED BY ALTER 00163000 ALCHAR2 DS C ANOTHER ONE 00164000 SPACE 1 00165000 AREA DS CL8 EDIT INSTRUCTION WORK 00166000 BYTE DS X TEMP (USED BY GET ) 00167000 CHNGFLAG DS X FLAG FOR CHANGE 00168000 CHNGMSG DS CL20 LINES CHANGED MSG 00169000 DS 2X C', ' @VA04193 00169200 CHGTRUNC DS 13X C'.... LINE(S) ' @VA04193 00169400 DS 9X C'TRUNCATED' @VA04193 00169600 SPACE 1 00169800 CMODE DS CL4 FILEMODE FOR MODECHK ROUTINE 00170000 SPACE 1 00171000 FILEMS DS CL26 RETRY MESSAGE 00172000 FLAGLOC DS X FLAG FOR DMSGIO 00173000 GETFLAG DS X FLAG FOR GETFILE 00174000 HOLDFLAG DS X DMSSCR 'SCRFLGS' 00175000 JAR DS (ENDBLOC-BLOC)AL1 SAVE AREA FOR PRESERVE 00176000 NEWNAME DS CL8 NAME AREA FOR FILE & SAVE 00177000 NEWTYPE DS CL8 TYPE AREA FOR FILE & SAVE 00178000 SPACE 1 00179000 NEWMODE DS CL2 MODE AREA FOR FILE & SAVE 00180000 SERSAV DS CL8 SERIAL NO.SAVE AREA 00181000 SERTSEQ DS CL3 TEMP SERIAL AREA 00182000 SERTSW DS X TEMP USED BY SERIAL 00183000 SPACE 1 00184000 SIGNAL DS X SIGNAL BETWEEN ROUTINES 00185000 SIGNAL2 DS X ADDITIONAL FLAG FOR GET HRC340F 00185010 TEMPTAB DS (ENDTABS-TABS)AL1 TEMP SPOT FOR NEW TABS 00186000 UTILFLAG DS X DMSSCR UTILITY FLAGS 00187000 XYFLAG DS X X/Y ACTIVE FLAG 00188000 SPACE 1 00189000 SCRFLGS DS X SCREEN FUNCTION FLAGS 00190000 SCRFLG2 DS X MORE SCREEN FUNCTION FLAGS 00191000 SCLNO DS 8C SAVE LINEMODE SEQ NO. 00192000 TWITCH DS X LOCATION FLAGS 00193000 TYPSCR DS X DISPLAY SIZE INDEX VALUE 00193100 SPACE 1 00194000 XAREA DS H 'X' LENGTH AND REQUEST BUFFER 00195000 DS CL135 (SAME LENGTH AS EDLIN) 00196000 SPACE 00197000 YAREA DS H 'Y' LENGTH AND REQUEST BUFFER 00198000 DS CL135 (SAME LENGTH AS EDLIN) 00199000 SPACE 1 00200000 CNOP 6,8 ALIGNMENT FOR XXXCWD 00201000 DS X MORE ALIGNMENT 00202000 BLANK1 DS X BLANK FOR CLEARING XXXCWD 00203000 XXXCWD DS CL8 EDIT TOKEN BUFFER 00204000 SAVCWD DS CL8 SPOT TO SAVE XXXCWD 00205000 SPACE 1 00206000 INVLDHDR DS CL6 '?EDIT:' FOR INVALID REQUEST MSG @VA04377 00206250 MACROHDR DS CL4 'EXEC' FOR EDIT MACRO STACKING @VA04377 00206500 INVLD DS 0CL6'?EDIT:' SPOT TO HOLD INVLDHDR @VA04377 00206750 ORG INVLD+2 @VA04377 00207000 MACRO DS 0CL4'EXEC' SPOT TO HOLD MACROHDR (IN INVLD) @VA04377 00207250 ORG MACRO+4 @VA04377 00207500 DS C BLANK USED FOR CLEARING EDLIN @VA04377 00207750 EDLIN DS CL135 TERMINAL INPUT BUFFER 00208000 SPACE 1 00209000 LINENO DS CL5 LINE NO. FOR TYPEOUT 00210000 BLANK2 DS X BLANK FOR CLEARING LINE 00211000 LINE DS CL160 CURRENT LINE IS HELD HERE 00212000 BLANK3 DS X BLANK FOR CLEARING TABLIN 00213000 TABLIN DS CL160 OUTPUT FROM SPREAD 00214000 LINENUM DS H FOR LINENUMB AND CLOSE,ETC. HRC340F 00214010 SPACE 1 00215000 EDCBEND DS 0D 00216000 EDCBLTH EQU (EDCBEND-EDCB) LENGTH OF EDCB WAW 00217000 POP PRINT 00217100 MEND 00218000