ibm:vm370-lib:cms:dmsedf.assemble_src
Table of Contents
DMSEDF Source
References
- Fixes Applied : 1
- This Source Date : Tuesday, December 12, 1978
- Last Fix ID : [R10660DS]
Source Listing
- DMSEDF.ASSEMBLE.txt
- 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
ibm/vm370-lib/cms/dmsedf.assemble_src.txt · Last modified: 2023/08/06 13:35 by Site Administrator