|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2048 (0x800)
Notes: MEMBER_P, Member_Text
Names: »#ENTER «
└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
└─⟦f96c804d0⟧
└─⟦this⟧ ».#ENTER «
**************************************************** CHANGED 10/12/83 * * ENTER FILENAME, PROGRAM NAME, FILE DEFINITION, * * NUMBER OF RECORDS, FILL CHARACTER, SOURCE PROCESSING, * * DFU SOURCE NAME, , USER LIB, DSP FORMAT SOURCE, , , * * LABEL ON DISK * * * * REQUIRED PARAMETERS * * * * 1 - FILE NAME * * 2 - PROGRAM NAME * * 3 - FILE DEFINITION SOURCE MEMBER * * 4 - NUMBER OF RECORDS * * * *********************************************************************** // MEMBER PROGRAM1-#DF#MG // MEMBER USER1-#DF#MG // IF JOBQ-YES #ERR 0420,C,DFU // IF EVOKED-YES #ERR 0420,C,DFU // IFF ?4?>0 #ERR 0088,C,DFU // IF ?4?>8000000 #ERR 0088,C,DFU * FILL CHARACTER Z-ZERO FILLED, ALL OTHERS BLANK FILLED // IFF ?5'D'?/D IFF ?5'Z'?/Z IFF ?5'B'?/B #ERR 0201,C,DFU * FILE NAMED EXISTS ? // IF DATAF1-?13'?1R'0202'?'? #ERR 0203,C,DFU // IFF ?9?/#LIBRARY IFF DATAF1-?9? #ERR 0224,C,DFU // IF INQUIRY-NO IF ?12'1'?/ * // ELSE IF ?12'2'?/ * // IF ?11?/NOSETUP GOTO NOSETUP // LOCAL OFFSET-1,DATA-'DFU 000R',AREA-SYSTEM * SUBROUTINE AND LOAD MEMBER EXISTS? // IF ?2?/ #DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,E,#DF?WS??12?,?5?,,?13'?1?'? // ELSE IFF SUBR-'?2?,?9?' #DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,E,+ #DF?WS??12?,?5?,,?13'?1?'? * // IFF ?L'12,1'?/R RETURN // TAG NOSETUP // IF ?11?/NOSETUP IFF SUBR-'?2R'0261'?,?9?' #ERR 0016,C,DFU // IFF ?2?/ IFF LOAD-'?2?,?9?' #ERR 0278,C,DFU // LOAD #DFEX // FILE NAME-#DFDATA,LABEL-?13?,DISP-NEW,RETAIN-T,RECORDS-?4R'0207'? // RUN // DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??12?,UT-E?5? // END // LOAD #DFEX // FILE NAME-#DFDATA,LABEL-?13?,DISP-SHRMM,RETAIN-T // PRINTER NAME-#DFPRINT // WORKSTN UNIT-?WS?,RESTORE-YES // RUN // DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??12?,UT-U?5? // END // IFF ?2?/ RETURN // LOAD $MAINT // RUN // DELETE NAME-#DF?WS??12?,LIBRARY-ALL,LIBRNAME-?9? // END
0x000…001 0xc7 0x001…048 »**************************************************** CHANGED 10/12/83 *« 0x048…049 0x09 0x049…04a 0x81 0x04a…04b »*« 0x04b…04c 0x02 0x04c…04d 0x85 0x04d…052 »ENTER« 0x052…053 0x02 0x053…054 0xa8 0x054…07c »FILENAME, PROGRAM NAME, FILE DEFINITION,« 0x07c…07d 0x14 0x07d…07e 0x81 0x07e…07f »*« 0x07f…080 0x09 0x080…081 0x81 0x081…082 »*« 0x082…083 0x09 0x083…084 0xb5 0x084…0b9 »NUMBER OF RECORDS, FILL CHARACTER, SOURCE PROCESSING,« 0x0b9…0ba 0x07 0x0ba…0bb 0x81 0x0bb…0bc »*« 0x0bc…0bd 0x09 0x0bd…0be 0x81 0x0be…0bf »*« 0x0bf…0c0 0x09 0x0c0…0c1 0xb3 0x0c1…0f4 »DFU SOURCE NAME, , USER LIB, DSP FORMAT SOURCE, , ,« 0x0f4…0f5 0x09 0x0f5…0f6 0x81 0x0f6…0f7 »*« 0x0f7…0f8 0x09 0x0f8…0f9 0x81 0x0f9…0fa »*« 0x0fa…0fb 0x09 0x0fb…0fc 0x8d 0x0fc…109 »LABEL ON DISK« 0x109…10a 0x2f 0x10a…10b 0x81 0x10b…10c »*« 0x10c…10d 0x09 0x10d…10e 0x81 0x10e…10f »*« 0x10f…110 0x45 0x110…111 0x81 0x111…112 »*« 0x112…113 0x09 0x113…114 0x95 0x114…129 »* REQUIRED PARAMETERS« 0x129…12a 0x31 0x12a…12b 0x81 0x12b…12c »*« 0x12c…12d 0x09 0x12d…12e 0x81 0x12e…12f »*« 0x12f…130 0x45 0x130…131 0x81 0x131…132 »*« 0x132…133 0x09 0x133…134 0x81 0x134…135 »*« 0x135…136 0x03 0x136…137 0x8d 0x137…144 »1 - FILE NAME« 0x144…145 0x35 0x145…146 0x81 0x146…147 »*« 0x147…148 0x09 0x148…149 0x81 0x149…14a »*« 0x14a…14b 0x03 0x14b…14c 0x90 0x14c…15c »2 - PROGRAM NAME« 0x15c…15d 0x32 0x15d…15e 0x81 0x15e…15f »*« 0x15f…160 0x09 0x160…161 0x81 0x161…162 »*« 0x162…163 0x03 0x163…164 0xa1 0x164…185 »3 - FILE DEFINITION SOURCE MEMBER« 0x185…186 0x21 0x186…187 0x81 0x187…188 »*« 0x188…189 0x09 0x189…18a 0x81 0x18a…18b »*« 0x18b…18c 0x03 0x18c…18d 0x95 0x18d…1a2 »4 - NUMBER OF RECORDS« 0x1a2…1a3 0x2d 0x1a3…1a4 0x81 0x1a4…1a5 »*« 0x1a5…1a6 0x09 0x1a6…1a7 0x81 0x1a7…1a8 »*« 0x1a8…1a9 0x45 0x1a9…1aa 0x81 0x1aa…1ab »*« 0x1ab…1ac 0x09 0x1ac…1ad 0xc7 0x1ad…1f4 »***********************************************************************« 0x1f4…1f5 0x09 0x1f5…1f6 0x99 0x1f6…20f »// MEMBER PROGRAM1-#DF#MG« 0x20f…210 0x37 0x210…211 0x96 0x211…227 »// MEMBER USER1-#DF#MG« 0x227…228 0x3a 0x228…229 0x9e 0x229…247 »// IF JOBQ-YES #ERR 0420,C,DFU« 0x247…248 0x32 0x248…249 0xa0 0x249…269 »// IF EVOKED-YES #ERR 0420,C,DFU« 0x269…26a 0x30 0x26a…26b 0x9c 0x26b…287 »// IFF ?4?>0 #ERR 0088,C,DFU« 0x287…288 0x34 0x288…289 0xa1 0x289…2aa »// IF ?4?>8000000 #ERR 0088,C,DFU« 0x2aa…2ab 0x2f 0x2ab…2ac 0x81 0x2ac…2ad »*« 0x2ad…2ae 0x02 0x2ae…2af 0xb5 0x2af…2e4 »FILL CHARACTER Z-ZERO FILLED, ALL OTHERS BLANK FILLED« 0x2e4…2e5 0x18 0x2e5…2e6 0xb9 0x2e6…31f »// IFF ?5'D'?/D IFF ?5'Z'?/Z IFF ?5'B'?/B #ERR 0201,C,DFU« 0x31f…320 0x17 0x320…321 0x81 0x321…322 »*« 0x322…323 0x21 0x323…324 0x93 0x324…337 »FILE NAMED EXISTS ?« 0x337…338 0x1b 0x338…339 0xad 0x339…366 »// IF DATAF1-?13'?1R'0202'?'? #ERR 0203,C,DFU« 0x366…367 0x23 0x367…368 0xb2 0x368…39a »// IFF ?9?/#LIBRARY IFF DATAF1-?9? #ERR 0224,C,DFU« 0x39a…39b 0x1e 0x39b…39c 0x9e 0x39c…3ba »// IF INQUIRY-NO IF ?12'1'?/ *« 0x3ba…3bb 0x32 0x3bb…3bc 0x95 0x3bc…3d1 »// ELSE IF ?12'2'?/ *« 0x3d1…3d2 0x3b 0x3d2…3d3 0x9f 0x3d3…3f2 »// IF ?11?/NOSETUP GOTO NOSETUP« 0x3f2…3f3 0x31 0x3f3…3f4 0x9b 0x3f4…40f »// LOCAL OFFSET-1,DATA-'DFU« 0x40f…410 0x05 0x410…411 0x91 0x411…422 »000R',AREA-SYSTEM« 0x422…423 0x1f 0x423…424 0x81 0x424…425 »*« 0x425…426 0x21 0x426…427 0xa2 0x427…449 »SUBROUTINE AND LOAD MEMBER EXISTS?« 0x449…44a 0x0c 0x44a…44b 0xcb 0x44b…496 »// IF ?2?/ #DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,E,#DF?WS??12?,?5?,,?13'?1?'?« 0x496…497 0x05 0x497…498 0xa0 0x498…4b8 »// ELSE IFF SUBR-'?2?,?9?' #DFMP« 0x4b8…4b9 0x02 0x4b9…4ba 0xa1 0x4ba…4db »?1?,?2?,?3?,?10?,?6?,?7?,,?9?,E,+« 0x4db…4dc 0x0d 0x4dc…4dd 0x9a 0x4dd…4f7 »#DF?WS??12?,?5?,,?13'?1?'?« 0x4f7…4f8 0x2c 0x4f8…4f9 0x81 0x4f9…4fa »*« 0x4fa…4fb 0x09 0x4fb…4fc 0x99 0x4fc…515 »// IFF ?L'12,1'?/R RETURN« 0x515…516 0x37 0x516…517 0x8e 0x517…525 »// TAG NOSETUP« 0x525…526 0x42 0x526…527 0xbc 0x527…563 »// IF ?11?/NOSETUP IFF SUBR-'?2R'0261'?,?9?' #ERR 0016,C,DFU« 0x563…564 0x14 0x564…565 0xae 0x565…593 »// IFF ?2?/ IFF LOAD-'?2?,?9?' #ERR 0278,C,DFU« 0x593…594 0x22 0x594…595 0x8d 0x595…5a2 »// LOAD #DFEX« 0x5a2…5a3 0x43 0x5a3…5a4 0xc4 0x5a4…5e8 »// FILE NAME-#DFDATA,LABEL-?13?,DISP-NEW,RETAIN-T,RECORDS-?4R'0207'?« 0x5e8…5e9 0x0c 0x5e9…5ea 0x86 0x5ea…5f0 »// RUN« 0x5f0…5f1 0x4a 0x5f1…5f2 0xb2 0x5f2…624 »// DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??12?,UT-E?5?« 0x624…625 0x1e 0x625…626 0x86 0x626…62c »// END« 0x62c…62d 0x4a 0x62d…62e 0x8d 0x62e…63b »// LOAD #DFEX« 0x63b…63c 0x43 0x63c…63d 0xb3 0x63d…670 »// FILE NAME-#DFDATA,LABEL-?13?,DISP-SHRMM,RETAIN-T« 0x670…671 0x1d 0x671…672 0x98 0x672…68a »// PRINTER NAME-#DFPRINT« 0x68a…68b 0x38 0x68b…68c 0xa0 0x68c…6ac »// WORKSTN UNIT-?WS?,RESTORE-YES« 0x6ac…6ad 0x30 0x6ad…6ae 0x86 0x6ae…6b4 »// RUN« 0x6b4…6b5 0x4a 0x6b5…6b6 0xb2 0x6b6…6e8 »// DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??12?,UT-U?5?« 0x6e8…6e9 0x1e 0x6e9…6ea 0x86 0x6ea…6f0 »// END« 0x6f0…6f1 0x4a 0x6f1…6f2 0x92 0x6f2…704 »// IFF ?2?/ RETURN« 0x704…705 0x3e 0x705…706 0x8e 0x706…714 »// LOAD $MAINT« 0x714…715 0x42 0x715…716 0x86 0x716…71c »// RUN« 0x71c…71d 0x4a 0x71d…71e 0xb3 0x71e…751 »// DELETE NAME-#DF?WS??12?,LIBRARY-ALL,LIBRNAME-?9?« 0x751…752 0x1d 0x752…753 0x86 0x753…759 »// END« 0x759…75a 0x4a 0x75a…75b 0x00 0x75b…760 40 f0 f2 f0 f3 ┆ 0203┆ 0x760…780 6b c3 6b c4 c6 e4 23 b2 61 61 40 c9 c6 c6 40 6f f9 6f 61 7b d3 c9 c2 d9 c1 d9 e8 40 c9 c6 c6 40 ┆,C,DFU ¥// IFF ?9?/#LIBRARY IFF ┆ 0x780…7a0 c4 c1 e3 c1 c6 f1 60 6f f9 6f 40 7b c5 d9 d9 40 f0 f2 f2 f4 6b c3 6b c4 c6 e4 1e 9e 61 61 40 c9 ┆DATAF1-?9? #ERR 0224,C,DFU Æ// I┆ 0x7a0…7c0 c6 40 c9 d5 d8 e4 c9 d9 e8 60 d5 d6 40 c9 c6 40 6f f1 f2 7d f1 7d 6f 61 40 5c 32 95 61 61 40 c5 ┆F INQUIRY-NO IF ?12'1'?/ * n// E┆ 0x7c0…7e0 d3 e2 c5 40 c9 c6 40 6f f1 f2 7d f2 7d 6f 61 40 5c 3b 9f 61 61 40 c9 c6 40 6f f1 f1 6f 61 d5 d6 ┆LSE IF ?12'2'?/ * ¤// IF ?11?/NO┆ 0x7e0…800 e2 c5 e3 e4 d7 40 c7 d6 e3 d6 40 d5 d6 e2 c5 e3 e4 d7 31 9b 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 ┆SETUP GOTO NOSETUP º// LOCAL OFF┆