|
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: 1792 (0x700)
Notes: MEMBER_P, Member_Text
Names: »#UPDATE «
└─⟦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⟧ ».#UPDATE «
**************************************************** CHANGED 10/12/83 *
* UPDATE FILENAME, PROGRAM NAME, FILE DEFINITION, *
* # OF RECORDS TO EXTEND, 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 *
* *
***********************************************************************
// MEMBER PROGRAM1-#DF#MG
// MEMBER USER1-#DF#MG
// IF JOBQ-YES #ERR 0422,C,DFU
// IF EVOKED-YES #ERR 0422,C,DFU
* NUMBER OF RECORDS MUST BE WITHIN THE RANGE 0-8000000 *
// IFF ?4'0'?>-1 #ERR 0087,C,DFU
// IF ?4?>8000000 #ERR 0087,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
// IFF DATAF1-?13'?1R'0208'?'? #ERR 0209,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
// IF ?2?/ #DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,U,#DF?WS??12?,?5?,,?13'?1?'?
// ELSE IFF SUBR-'?2?,?9?' +
#DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,U,#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?,RETAIN-T,DISP-SHRMM,EXTEND-?4'0'?
// PRINTER NAME-#DFPRINT
// WORKSTN UNIT-?WS?,RESTORE-YES
// RUN
// DFU FT-?2?,UT-M?5?,DF-#DF?WS??12?,LB-?9?,FL-?1?
// 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 0xaf 0x04d…07c »UPDATE 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 0xba 0x084…0be »# OF RECORDS TO EXTEND, FILL CHARACTER, SOURCE PROCESSING,« 0x0be…0bf 0x02 0x0bf…0c0 0x81 0x0c0…0c1 »*« 0x0c1…0c2 0x09 0x0c2…0c3 0x81 0x0c3…0c4 »*« 0x0c4…0c5 0x09 0x0c5…0c6 0xb3 0x0c6…0f9 »DFU SOURCE NAME, , USER LIB, DSP FORMAT SOURCE, , ,« 0x0f9…0fa 0x09 0x0fa…0fb 0x81 0x0fb…0fc »*« 0x0fc…0fd 0x09 0x0fd…0fe 0x81 0x0fe…0ff »*« 0x0ff…100 0x09 0x100…101 0x8d 0x101…10e »LABEL ON DISK« 0x10e…10f 0x2f 0x10f…110 0x81 0x110…111 »*« 0x111…112 0x09 0x112…113 0x81 0x113…114 »*« 0x114…115 0x45 0x115…116 0x81 0x116…117 »*« 0x117…118 0x09 0x118…119 0x95 0x119…12e »* REQUIRED PARAMETERS« 0x12e…12f 0x31 0x12f…130 0x81 0x130…131 »*« 0x131…132 0x09 0x132…133 0x81 0x133…134 »*« 0x134…135 0x45 0x135…136 0x81 0x136…137 »*« 0x137…138 0x09 0x138…139 0x81 0x139…13a »*« 0x13a…13b 0x03 0x13b…13c 0x8d 0x13c…149 »1 - FILE NAME« 0x149…14a 0x35 0x14a…14b 0x81 0x14b…14c »*« 0x14c…14d 0x09 0x14d…14e 0x81 0x14e…14f »*« 0x14f…150 0x03 0x150…151 0x90 0x151…161 »2 - PROGRAM NAME« 0x161…162 0x32 0x162…163 0x81 0x163…164 »*« 0x164…165 0x09 0x165…166 0x81 0x166…167 »*« 0x167…168 0x03 0x168…169 0xa1 0x169…18a »3 - FILE DEFINITION SOURCE MEMBER« 0x18a…18b 0x21 0x18b…18c 0x81 0x18c…18d »*« 0x18d…18e 0x09 0x18e…18f 0x81 0x18f…190 »*« 0x190…191 0x45 0x191…192 0x81 0x192…193 »*« 0x193…194 0x09 0x194…195 0xc7 0x195…1dc »***********************************************************************« 0x1dc…1dd 0x09 0x1dd…1de 0x99 0x1de…1f7 »// MEMBER PROGRAM1-#DF#MG« 0x1f7…1f8 0x37 0x1f8…1f9 0x96 0x1f9…20f »// MEMBER USER1-#DF#MG« 0x20f…210 0x3a 0x210…211 0x9e 0x211…22f »// IF JOBQ-YES #ERR 0422,C,DFU« 0x22f…230 0x32 0x230…231 0xa0 0x231…251 »// IF EVOKED-YES #ERR 0422,C,DFU« 0x251…252 0x30 0x252…253 0x81 0x253…254 »*« 0x254…255 0x02 0x255…256 0xb4 0x256…28a »NUMBER OF RECORDS MUST BE WITHIN THE RANGE 0-8000000« 0x28a…28b 0x0f 0x28b…28c 0x81 0x28c…28d »*« 0x28d…28e 0x09 0x28e…28f 0xa0 0x28f…2af »// IFF ?4'0'?>-1 #ERR 0087,C,DFU« 0x2af…2b0 0x30 0x2b0…2b1 0xa1 0x2b1…2d2 »// IF ?4?>8000000 #ERR 0087,C,DFU« 0x2d2…2d3 0x2f 0x2d3…2d4 0x81 0x2d4…2d5 »*« 0x2d5…2d6 0x02 0x2d6…2d7 0xb5 0x2d7…30c »FILL CHARACTER Z-ZERO FILLED, ALL OTHERS BLANK FILLED« 0x30c…30d 0x0e 0x30d…30e 0x81 0x30e…30f »*« 0x30f…310 0x09 0x310…311 0xb9 0x311…34a »// IFF ?5'D'?/D IFF ?5'Z'?/Z IFF ?5'B'?/B #ERR 0201,C,DFU« 0x34a…34b 0x17 0x34b…34c 0xae 0x34c…37a »// IFF DATAF1-?13'?1R'0208'?'? #ERR 0209,C,DFU« 0x37a…37b 0x22 0x37b…37c 0xb2 0x37c…3ae »// IFF ?9?/#LIBRARY IFF DATAF1-?9? #ERR 0224,C,DFU« 0x3ae…3af 0x1e 0x3af…3b0 0x9e 0x3b0…3ce »// IF INQUIRY-NO IF ?12'1'?/ *« 0x3ce…3cf 0x32 0x3cf…3d0 0x95 0x3d0…3e5 »// ELSE IF ?12'2'?/ *« 0x3e5…3e6 0x3b 0x3e6…3e7 0x9f 0x3e7…406 »// IF ?11?/NOSETUP GOTO NOSETUP« 0x406…407 0x31 0x407…408 0x9b 0x408…423 »// LOCAL OFFSET-1,DATA-'DFU« 0x423…424 0x05 0x424…425 0x91 0x425…436 »000R',AREA-SYSTEM« 0x436…437 0x1f 0x437…438 0xcb 0x438…483 »// IF ?2?/ #DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,U,#DF?WS??12?,?5?,,?13'?1?'?« 0x483…484 0x05 0x484…485 0x9c 0x485…4a1 »// ELSE IFF SUBR-'?2?,?9?' +« 0x4a1…4a2 0x34 0x4a2…4a3 0x0c 0x4a3…4a4 0x85 0x4a4…4a9 »#DFMP« 0x4a9…4aa 0x02 0x4aa…4ab 0xba 0x4ab…4e5 »?1?,?2?,?3?,?10?,?6?,?7?,,?9?,U,#DF?WS??12?,?5?,,?13'?1?'?« 0x4e5…4e6 0x03 0x4e6…4e7 0x99 0x4e7…500 »// IFF ?L'12,1'?/R RETURN« 0x500…501 0x37 0x501…502 0x8e 0x502…510 »// TAG NOSETUP« 0x510…511 0x42 0x511…512 0xbc 0x512…54e »// IF ?11?/NOSETUP IFF SUBR-'?2R'0261'?,?9?' #ERR 0016,C,DFU« 0x54e…54f 0x14 0x54f…550 0xae 0x550…57e »// IFF ?2?/ IFF LOAD-'?2?,?9?' #ERR 0278,C,DFU« 0x57e…57f 0x22 0x57f…580 0x8d 0x580…58d »// LOAD #DFEX« 0x58d…58e 0x43 0x58e…58f 0xc1 0x58f…5d0 »// FILE NAME-#DFDATA,LABEL-?13?,RETAIN-T,DISP-SHRMM,EXTEND-?4'0'?« 0x5d0…5d1 0x0f 0x5d1…5d2 0x98 0x5d2…5ea »// PRINTER NAME-#DFPRINT« 0x5ea…5eb 0x38 0x5eb…5ec 0xa0 0x5ec…60c »// WORKSTN UNIT-?WS?,RESTORE-YES« 0x60c…60d 0x30 0x60d…60e 0x86 0x60e…614 »// RUN« 0x614…615 0x4a 0x615…616 0xb2 0x616…648 »// DFU FT-?2?,UT-M?5?,DF-#DF?WS??12?,LB-?9?,FL-?1?« 0x648…649 0x1e 0x649…64a 0x86 0x64a…650 »// END« 0x650…651 0x4a 0x651…652 0x92 0x652…664 »// IFF ?2?/ RETURN« 0x664…665 0x3e 0x665…666 0x8e 0x666…674 »// LOAD $MAINT« 0x674…675 0x42 0x675…676 0x86 0x676…67c »// RUN« 0x67c…67d 0x4a 0x67d…67e 0xb3 0x67e…6b1 »// DELETE NAME-#DF?WS??12?,LIBRARY-ALL,LIBRNAME-?9?« 0x6b1…6b2 0x1d 0x6b2…6b3 0x86 0x6b3…6b9 »// END« 0x6b9…6ba 0x4a 0x6ba…6bb 0x00 0x6bb…6c0 f8 f0 f0 f0 f0 ┆80000┆ 0x6c0…6e0 f0 f0 40 7b c5 d9 d9 40 f0 f0 f8 f7 6b c3 6b c4 c6 e4 2f 81 5c 02 b5 c6 c9 d3 d3 40 c3 c8 c1 d9 ┆00 #ERR 0087,C,DFU a* §FILL CHAR┆ 0x6e0…700 c1 c3 e3 c5 d9 40 e9 60 e9 c5 d9 d6 40 c6 c9 d3 d3 c5 c4 6b 40 c1 d3 d3 40 d6 e3 c8 c5 d9 e2 40 ┆ACTER Z-ZERO FILLED, ALL OTHERS ┆