|
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: »#LIST «
└─⟦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⟧ ».#LIST «
**************************************************** CHANGED 12/21/83 * * LIST FILENAME, PROGRAM NAME, FILE DEFINITION, SORT/NOSORT, * * FILL CHARACTER, SOURCE PROCESSING, DFU SOURCE NAME, * * MASTER FILE NAME, USER LIB, , , , LABEL ON DISK * * * * REQUIRED PARAMETERS * * * * 1 - FILE NAME * * 2 - PROGRAM NAME * * 3 - FILE DEFINITION SOURCE MEMBER * * * *********************************************************************** // MEMBER PROGRAM1-#DF#MG // MEMBER USER1-#DF#MG // IF EVOKED-NO IF JOBQ-NO GOTO PROMPT // IF ?1?/ #ERR 0423,C,DFU // IFF DATAF1-?13'?1?'? #ERR 0423,C,DFU // IF ?2?/ #ERR 0423,C,DFU // EVALUATE P11='NOSETUP' // TAG PROMPT // IFF DATAF1-?13'?1R'0211'?'? #ERR 0209,C,DFU // IFF ?8?/ IFF DATAF1-?8? #ERR 0290,C,DFU // IFF ?9?/#LIBRARY IFF DATAF1-?9? #ERR 0224,C,DFU // IFF ?4'NOSORT'?/NOSORT IFF ?4?/SORT #ERR 0212,C,DFU // IF EVOKED-YES IF ?12'4'?/ * // ELSE IF JOBQ-YES IF ?12'3'?/ * // ELSE IF INQUIRY-YES IF ?12'2'?/ * // ELSE IF ?12'1'?/ * // IF ?11?/NOSETUP GOTO NOSETUP // LOCAL OFFSET-1,DATA-'DFU 000R',AREA-SYSTEM // IF ?12?>2 GOTO NOSETUP // IF ?2?/ #DFMP ?1?,?2?,?3?,?4?,?6?,?7?,?8?,?9?,L,#DF?WS??12?,,,?13'?1?'? // ELSE IFF SUBR-'?2?,?9?' #DFMP ?1?,?2?,?3?,?4?,?6?,?7?,?8?,?9?,L,+ #DF?WS??12?,,,?13'?1?'? // IFF ?L'12,1'?/R RETURN // TAG NOSETUP // IF ?11?/NOSETUP IFF SUBR-'?2R'0261'?,?9?' #ERR 0016,C,DFU // IF ?4'NOSORT'?/SORT #DFST ?1?,?2?,?8?,?9?,#DF?WS??12?,?13? // IF JOBQ-NO IF EVOKED-NO * 0223 // LOAD #DFEX // FILE NAME-#DFDATA,LABEL-?13?,RETAIN-T,DISP-SHRRM // IF ?4?/SORT FILE NAME-#DFTAG,LABEL-#DFTAG,RETAIN-S // IFF ?8?/ FILE NAME-#DFMAST,LABEL-?8?,RETAIN-T,DISP-SHRRM // PRINTER NAME-#DFPRINT // RUN // DFU FT-?2?,DS-?4?,MF-?8?,LB-?9?,UT-L,DF-#DF?WS??12? // END // IFF ?2?/ RETURN // LOAD $MAINT // RUN // DELETE NAME-#DF?WS??12?,LIBRARY-R,LIBRNAME-?9? // END
0x000…001 0xc7 0x001…048 »**************************************************** CHANGED 12/21/83 *« 0x048…049 0x09 0x049…04a 0x86 0x04a…050 »* LIST« 0x050…051 0x04 0x051…052 0xb5 0x052…087 »FILENAME, PROGRAM NAME, FILE DEFINITION, SORT/NOSORT,« 0x087…088 0x07 0x088…089 0x81 0x089…08a »*« 0x08a…08b 0x09 0x08b…08c 0x81 0x08c…08d »*« 0x08d…08e 0x09 0x08e…08f 0xb3 0x08f…0c2 »FILL CHARACTER, SOURCE PROCESSING, DFU SOURCE NAME,« 0x0c2…0c3 0x09 0x0c3…0c4 0x81 0x0c4…0c5 »*« 0x0c5…0c6 0x09 0x0c6…0c7 0x81 0x0c7…0c8 »*« 0x0c8…0c9 0x09 0x0c9…0ca 0xaf 0x0ca…0f9 »MASTER FILE NAME, USER LIB, , , , LABEL ON DISK« 0x0f9…0fa 0x0d 0x0fa…0fb 0x81 0x0fb…0fc »*« 0x0fc…0fd 0x09 0x0fd…0fe 0x81 0x0fe…0ff »*« 0x0ff…100 0x45 0x100…101 0x81 0x101…102 »*« 0x102…103 0x09 0x103…104 0x95 0x104…119 »* REQUIRED PARAMETERS« 0x119…11a 0x31 0x11a…11b 0x81 0x11b…11c »*« 0x11c…11d 0x09 0x11d…11e 0x81 0x11e…11f »*« 0x11f…120 0x45 0x120…121 0x81 0x121…122 »*« 0x122…123 0x09 0x123…124 0x81 0x124…125 »*« 0x125…126 0x03 0x126…127 0x8d 0x127…134 »1 - FILE NAME« 0x134…135 0x35 0x135…136 0x81 0x136…137 »*« 0x137…138 0x09 0x138…139 0x81 0x139…13a »*« 0x13a…13b 0x03 0x13b…13c 0x90 0x13c…14c »2 - PROGRAM NAME« 0x14c…14d 0x32 0x14d…14e 0x81 0x14e…14f »*« 0x14f…150 0x09 0x150…151 0x81 0x151…152 »*« 0x152…153 0x03 0x153…154 0xa1 0x154…175 »3 - FILE DEFINITION SOURCE MEMBER« 0x175…176 0x21 0x176…177 0x81 0x177…178 »*« 0x178…179 0x09 0x179…17a 0x81 0x17a…17b »*« 0x17b…17c 0x45 0x17c…17d 0x81 0x17d…17e »*« 0x17e…17f 0x09 0x17f…180 0xc7 0x180…1c7 »***********************************************************************« 0x1c7…1c8 0x09 0x1c8…1c9 0x99 0x1c9…1e2 »// MEMBER PROGRAM1-#DF#MG« 0x1e2…1e3 0x37 0x1e3…1e4 0x96 0x1e4…1fa »// MEMBER USER1-#DF#MG« 0x1fa…1fb 0x3a 0x1fb…1fc 0xa6 0x1fc…222 »// IF EVOKED-NO IF JOBQ-NO GOTO PROMPT« 0x222…223 0x2a 0x223…224 0x9a 0x224…23e »// IF ?1?/ #ERR 0423,C,DFU« 0x23e…23f 0x36 0x23f…240 0xa7 0x240…267 »// IFF DATAF1-?13'?1?'? #ERR 0423,C,DFU« 0x267…268 0x29 0x268…269 0x9a 0x269…283 »// IF ?2?/ #ERR 0423,C,DFU« 0x283…284 0x36 0x284…285 0x99 0x285…29e »// EVALUATE P11='NOSETUP'« 0x29e…29f 0x37 0x29f…2a0 0x8d 0x2a0…2ad »// TAG PROMPT« 0x2ad…2ae 0x43 0x2ae…2af 0xae 0x2af…2dd »// IFF DATAF1-?13'?1R'0211'?'? #ERR 0209,C,DFU« 0x2dd…2de 0x22 0x2de…2df 0xaa 0x2df…309 »// IFF ?8?/ IFF DATAF1-?8? #ERR 0290,C,DFU« 0x309…30a 0x26 0x30a…30b 0xb2 0x30b…33d »// IFF ?9?/#LIBRARY IFF DATAF1-?9? #ERR 0224,C,DFU« 0x33d…33e 0x1e 0x33e…33f 0xb6 0x33f…375 »// IFF ?4'NOSORT'?/NOSORT IFF ?4?/SORT #ERR 0212,C,DFU« 0x375…376 0x1a 0x376…377 0x9e 0x377…395 »// IF EVOKED-YES IF ?12'4'?/ *« 0x395…396 0x32 0x396…397 0xa1 0x397…3b8 »// ELSE IF JOBQ-YES IF ?12'3'?/ *« 0x3b8…3b9 0x2f 0x3b9…3ba 0xa4 0x3ba…3de »// ELSE IF INQUIRY-YES IF ?12'2'?/ *« 0x3de…3df 0x2c 0x3df…3e0 0x95 0x3e0…3f5 »// ELSE IF ?12'1'?/ *« 0x3f5…3f6 0x3b 0x3f6…3f7 0x9f 0x3f7…416 »// IF ?11?/NOSETUP GOTO NOSETUP« 0x416…417 0x31 0x417…418 0x9b 0x418…433 »// LOCAL OFFSET-1,DATA-'DFU« 0x433…434 0x05 0x434…435 0x91 0x435…446 »000R',AREA-SYSTEM« 0x446…447 0x1f 0x447…448 0x99 0x448…461 »// IF ?12?>2 GOTO NOSETUP« 0x461…462 0x37 0x462…463 0xca 0x463…4ad »// IF ?2?/ #DFMP ?1?,?2?,?3?,?4?,?6?,?7?,?8?,?9?,L,#DF?WS??12?,,,?13'?1?'?« 0x4ad…4ae 0x06 0x4ae…4af 0xc4 0x4af…4f3 »// ELSE IFF SUBR-'?2?,?9?' #DFMP ?1?,?2?,?3?,?4?,?6?,?7?,?8?,?9?,L,+« 0x4f3…4f4 0x0c 0x4f4…4f5 0x97 0x4f5…50c »#DF?WS??12?,,,?13'?1?'?« 0x50c…50d 0x39 0x50d…50e 0x99 0x50e…527 »// IFF ?L'12,1'?/R RETURN« 0x527…528 0x37 0x528…529 0x8e 0x529…537 »// TAG NOSETUP« 0x537…538 0x42 0x538…539 0xbc 0x539…575 »// IF ?11?/NOSETUP IFF SUBR-'?2R'0261'?,?9?' #ERR 0016,C,DFU« 0x575…576 0x14 0x576…577 0xbd 0x577…5b4 »// IF ?4'NOSORT'?/SORT #DFST ?1?,?2?,?8?,?9?,#DF?WS??12?,?13?« 0x5b4…5b5 0x13 0x5b5…5b6 0xa1 0x5b6…5d7 »// IF JOBQ-NO IF EVOKED-NO * 0223« 0x5d7…5d8 0x2f 0x5d8…5d9 0x8d 0x5d9…5e6 »// LOAD #DFEX« 0x5e6…5e7 0x43 0x5e7…5e8 0xb3 0x5e8…61b »// FILE NAME-#DFDATA,LABEL-?13?,RETAIN-T,DISP-SHRRM« 0x61b…61c 0x1d 0x61c…61d 0xb5 0x61d…652 »// IF ?4?/SORT FILE NAME-#DFTAG,LABEL-#DFTAG,RETAIN-S« 0x652…653 0x1b 0x653…654 0xbb 0x654…68f »// IFF ?8?/ FILE NAME-#DFMAST,LABEL-?8?,RETAIN-T,DISP-SHRRM« 0x68f…690 0x15 0x690…691 0x98 0x691…6a9 »// PRINTER NAME-#DFPRINT« 0x6a9…6aa 0x38 0x6aa…6ab 0x86 0x6ab…6b1 »// RUN« 0x6b1…6b2 0x4a 0x6b2…6b3 0xb6 0x6b3…6e9 »// DFU FT-?2?,DS-?4?,MF-?8?,LB-?9?,UT-L,DF-#DF?WS??12?« 0x6e9…6ea 0x1a 0x6ea…6eb 0x86 0x6eb…6f1 »// END« 0x6f1…6f2 0x4a 0x6f2…6f3 0x92 0x6f3…705 »// IFF ?2?/ RETURN« 0x705…706 0x3e 0x706…707 0x8e 0x707…715 »// LOAD $MAINT« 0x715…716 0x42 0x716…717 0x86 0x717…71d »// RUN« 0x71d…71e 0x4a 0x71e…71f 0xb1 0x71f…750 »// DELETE NAME-#DF?WS??12?,LIBRARY-R,LIBRNAME-?9?« 0x750…751 0x1f 0x751…752 0x86 0x752…758 »// END« 0x758…759 0x4a 0x759…75a 0x00 0x75a…760 c6 c6 40 6f f4 6f ┆FF ?4?┆ 0x760…780 61 e2 d6 d9 e3 40 7b c5 d9 d9 40 f0 f2 f1 f2 6b c3 6b c4 c6 e4 1a 9e 61 61 40 c9 c6 40 c5 e5 d6 ┆/SORT #ERR 0212,C,DFU Æ// IF EVO┆ 0x780…7a0 d2 c5 c4 60 e8 c5 e2 40 c9 c6 40 6f f1 f2 7d f4 7d 6f 61 40 5c 32 a1 61 61 40 c5 d3 e2 c5 40 c9 ┆KED-YES IF ?12'4'?/ * ~// ELSE I┆ 0x7a0…7c0 c6 40 d1 d6 c2 d8 60 e8 c5 e2 40 c9 c6 40 6f f1 f2 7d f3 7d 6f 61 40 5c 2f a4 61 61 40 c5 d3 e2 ┆F JOBQ-YES IF ?12'3'?/ * u// ELS┆ 0x7c0…7e0 c5 40 c9 c6 40 c9 d5 d8 e4 c9 d9 e8 60 e8 c5 e2 40 c9 c6 40 6f f1 f2 7d f2 7d 6f 61 40 5c 2c 95 ┆E IF INQUIRY-YES IF ?12'2'?/ * n┆ 0x7e0…800 61 61 40 c5 d3 e2 c5 40 c9 c6 40 6f f1 f2 7d f1 7d 6f 61 40 5c 3b 9f 61 61 40 c9 c6 40 6f f1 f1 ┆// ELSE IF ?12'1'?/ * ¤// IF ?11┆