EDF TITLE 'DMSEDF (CMS) VM/370 - RELEASE 6' 00001000
SPACE 2 00002000
*. 00003000
* 00004000
* MODULE NAME - 00005000
* 00006000
* DMSEDF (EDFILES) 00007000
* 00008000
* 00009000
* FUNCTION - 00010000
* 00011000
* TO PROVIDE THE EDITOR WITH THE PROPER SETTINGS(CASE TAB 00012000
* FORMAT, SERIAL, ETC.) BY FILETYPE. 00013000
* 00014000
* ATTRIBUTES - 00015000
* 00016000
* DISK-RESIDENT; NON-EXECUTABLE CODE REFERENCED BY DMSEDI 00017000
* ENTRY POINTS - 00018000
* 00019000
* N/A 00020000
* 00021000
* ENTRY CONDITIONS - 00022000
* 00023000
* N/A 00024000
* 00025000
* EXIT CONDITIONS - 00026000
* N/A 00027000
* 00028000
* CALLS TO OTHER ROUTINES - 00029000
* 00030000
* N/A 00031000
* 00032000
* EXTERNAL REFERENCES - 00033000
* 00034000
* NONE 00035000
* 00036000
* TABLES/WORKAREAS - 00037000
* 00038000
* DMSEDF IS A CSECT CONSISTING OF A LIST OF FILETYPES 00039000
* AND A TABLE OF DATA GROUPED BY FILETYPE. DMSEDI SCANS THE 00040000
* LIST FOR A FILETYPE MATCH AND BRANCHES TO THE APPRORPIATE 00041000
* PART OF THE TABLE TO EXTRACT THE DEFAULT SETTINGS 00042000
* FOR THAT FILETYPE. IF A MATCH IS NOT FOUND, COMMON SETTING 00043000
* ARE USED FOR 'DEFAULT' FILETYPES. 00044000
* DMSEDF IS LOADED WITH DMSEDI AS FOLLOWS: 00045000
* LOAD DMSEDI DMSEDA DMSEDF DMSEDC (TYPE 00046000
* 00047000
* OPERATION - 00048000
* 00049000
* N/A (SEE TABLES/WORKAREAS) 00050000
* 00051000
*. 00052000
EDFILES CSECT 00053000
SPACE 00054000
DC CL8'COBOL',A(COBOL) 00055000
DC CL8'FORTRAN',A(FORTRAN) 00056000
DC CL8'BASIC',A(BASIC) 00057000
DC CL8'BASDATA',A(BASIC) V0214 00058000
DC CL8'EXEC',A(EXEC) @VM03265 00058100
DC CL8'LISTING',A(LISTING) 00059000
DC CL8'VSBASIC',A(BASIC) @V1D1801 00060000
DC CL8'VSBDATA',A(VSBDATA) @V1D1801 00061000
DC CL8'MEMO',A(MEMO) 00062000
DC CL8'PLI',A(PLI) 00063000
DC CL8'PLIOPT',A(PLI) 00064000
DC CL8'SCRIPT',A(SCRIPT) 00065000
DC CL8'ASSEMBLE',A(ASM) 00066000
DC CL8'FREEFORT',A(FREEFORT) @V1D1613 00067000
DC CL8'AMSERV',A(AMSERV) @V305114 00068100
DC CL8'UPDATE',A(ASM) 00069000
DC CL8'UPDTXXXX',A(ASM) @VA00877 00070000
DC CL8'ASM3705',A(ASM) @VA10660 00070100
DC CL8'DIRECT',A(DIRECT) P3123 00071000
DC CL8'MACRO',A(ASM) V0208 00072000
DC 8X'FF',A(DEFILE) 00073000
SPACE 2 00074000
ASM DS 0F 00075000
DC C'U',X'0C' UPPER-CASE, SERIALIZATION @V1D1613 00076000
DC C'F',AL1(80) DEFAULT RECORD FORMAT F 80 00077000
DC AL1(71,72) TRUNC. (AND END ZONE) AND VERIFY COLS. 00078000
DC A(ASMTABS) ADDRESS OF TABS 00079000
SPACE 00080000
COBOL DS 0F 00081000
DC C'U',X'0C' UPPER-CASE, SERIALIZATION @V1D1613 00082000
DC C'F',AL1(80) DEFAULT FORMAT F 80 00083000
DC AL1(72,72) TRUNC. (AND END ZONE) AND VERIFY COLS. 00084000
SPACE 00085000
DC A(COBTABS) P3123 00086000
SPACE 00087000
FORTRAN DS 0F 00088000
DC C'U',X'0C' UPPER-CASE, SERIALIZATION @V1D1613 00089000
DC C'F',AL1(80) DEFAULT RECORD FORMAT F 80 00090000
DC AL1(72,72) TRUNC. (AND END ZONE) AND VERIFY COLS. 00091000
DC A(FORTABS) ADDRESS OF TABS 00092000
SPACE 00093000
LISTING DS 0F 00094000
DC C'U',X'00' UPPER-CASE, NO SERIALIZATION @V1D1613 00095000
DC C'V',AL1(121) DEFAULT RECORD FORMAT V 121 00096000
DC AL1(0,0) ALL RIGHT-HAND COLS. SET TO ITEM-LENGTH 00097000
DC A(DEFTABS) DEFAULT TAB STOPS 00098000
SPACE 00099000
MEMO DS 0F 00100000
DC C'S',X'00' MIXED-CASE, NO SERIALIZATION @V1D1613 00101000
DC C'F',AL1(80) DEFAULT RECORD FORMAT V 80 00102000
DC AL1(0,0) ALL RIGHT-HAND COLS. SET TO ITEM-LENGTH 00103000
DC A(DEFTABS) DEFAULT TABS STOPS 00104000
SPACE 00105000
PLI DS 0F 00106000
DC C'U',X'0C' UPPER-CASE, SERIALIZATION @V1D1613 00107000
DC C'F',AL1(80) DEFAULT RECORD FORMAT F 80 00108000
DC AL1(72,72) TRUNC, END ZONE, VERIFY COLS. V0208 00109000
DC A(PLITABS) ADDRESS OF TABS 00110000
SPACE 00111000
SCRIPT DS 0F 00112000
DC C'S',X'01' MIXED CASE FILE, CANON @V200714 00113000
DC C'V',AL1(132) DEFAULT RECORD FORMAT V 132 00114000
DC AL1(0,0) ALL RIGHT-HAND COLS. SET TO ITEM-LENGTH 00115000
DC A(DEFTABS) DEFAULT TAB STOPS 00116000
SPACE 00117000
DEFILE DS 0F DEFAULT FILETYPE DATA 00118000
DC C'U',X'00' UPPER CASE, NO SERIAL @V200714 00119000
DC C'F',AL1(80) DEFAULT RECORD FORMAT F 80 00120000
DC AL1(0,0) ALL RIGHT-HAND COLS. SET TO ITEM-LENGTH 00121000
DC A(DEFTABS) DEFAULT TAB STOPS 00122000
SPACE 00123000
FREEFORT DS 0F @V1D1613 00124000
DC C'U',X'50' @V1D1613 00125000
DC C'V',AL1(81) @V1D1613 00126000
DC AL1(0,0) @V1D1613 00127000
DC A(FREETABS) @V1D1613 00128000
SPACE 1 00129000
AMSERV DS 0F @V305114 00129100
DC C'U',X'00' UPPER CASE, NO SERIALIZATION @V305114 00129200
DC C'F',AL1(80) DEFAULT RECORD FORMAT F 80 @V305114 00129300
DC AL1(72,72) TRUNC, END ZONE, VERIFY COLUMNS @V305114 00129400
SPACE 1 00129500
DC A(AMSTABS) ADDRESS OF TABS @V305114 00129600
BASIC DS 0F 00130000
DC C'U',X'40' UPPER-CASE,LINEMODE LEFT @V1D1613 00131000
DC C'F',AL1(80) DEFAULT RECORD FORMAT F 80 00132000
DC AL1(0,0) ALL RIGHT-HAND COLS SET TO ITEM LEN@VA01750 00133100
DC A(BASTABS) ADDRESS OF TABS 00134000
EXEC DS 0F @VM03265 00134100
DC C'U',X'00' UPPER CASE, NO SERIALIZATION @VM03265 00134200
DC C'V',AL1(80) RECFM V, LRECL 80 @VM03265 00134300
DC AL1(0,0) ALL RT HAND COLS SET TO LRECL @VM03265 00134400
SPACE 1 00134500
DC A(DEFTABS) DEFAULT TABS @VM03265 00134600
SPACE 1 00135000
VSBDATA DS 0F @V1D1801 00136000
DC C'U',X'00' UPPER CASE @V200714 00137000
DC C'V',AL1(132) DEFAULT RECORD FORMAT V 132 @V1D1801 00138000
DC AL1(0,0) ALL COLS. SET TO ITEM LENGTH @V1D1801 00139000
DC A(DEFTABS) DEFAULT TABS STOPS @V1D1801 00140000
SPACE 2 00141000
DIRECT DS 0F P3123 00142000
DC C'U',X'0C' UPPER CASE, SERIAL ON @V200714 00143000
DC C'F',AL1(80) FORMAT F 80 P3123 00144000
DC AL1(72,72) P3123 00145000
SPACE 1 00146000
DC A(DEFTABS) DEFAULT TABS P3123 00147000
SPACE 2 00148000
NOTABS DC AL1(1,0) 00149000
ASMTABS DC AL1(1,10,16,31,36,41,46,69,72,80,0) 00150000
FREETABS DC AL1(9,15,18,23,28,33,38,81,0) @V1D1613 00151000
AMSTABS DC AL1(2,6,11,16,21,26,31,36,41,46,51,61,71,80,0) @V305114 00151100
FORTABS DC AL1(1,7,10,15,20,25,30,80,0) 00152000
BASTABS DC AL1(7,10,15,20,25,30,80,0) 00153000
PLITABS DC AL1(2,4,7,10,13,16,19,22,25,31,37,43,49,55,79,80,0) 00154000
COBTABS DC AL1(1,8,12,20,28,36,44,68,72,80,0) P3123 00155000
DEFTABS DC AL1(1,6,11,16,21,26,31,36,41,46,51,61,71,81,91,101,111,1*00156000
21,131,0) 00157000
SPACE 2 00158000
END 00159000