DataMuseum.dk Presents historical artifacts from the history of: IBM System/36

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦ea69272dd⟧

    Length: 1792 (0x700)
    Notes: MEMBER_P, Member_Text
    Names: »#INQUIRY«

Derivation

└─⟦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⟧ ».#INQUIRY« 

**************************************************** CHANGED 10/12/83 *         
* INQUIRY FILENAME, PROGRAM NAME, FILE DEFINITION, ,                  *         
*         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 0421,C,DFU                                                  
// IF EVOKED-YES #ERR 0421,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'0210'?'? #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?,I,#DF?WS??12?,?5?,,?13'?1?'?     
// ELSE IFF SUBR-'?2?,?9?' +                                                    
            #DFMP  ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,I,#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-SHRRM                             
// PRINTER NAME-#DFPRINT                                                        
// WORKSTN UNIT-?WS?,RESTORE-YES                                                
// RUN                                                                          
// DFU FT-?2?,UT-I?5?,LB-?9?,DF-#DF?WS??12?,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 0xb4
0x04a…07e »* INQUIRY FILENAME, PROGRAM NAME, FILE DEFINITION, ,«
0x07e…07f 0x12
0x07f…080 0x81
0x080…081 »*«
0x081…082 0x09
0x082…083 0x81
0x083…084 »*«
0x084…085 0x09
0x085…086 0xa2
0x086…0a8 »FILL CHARACTER, SOURCE PROCESSING,«
0x0a8…0a9 0x1a
0x0a9…0aa 0x81
0x0aa…0ab »*«
0x0ab…0ac 0x09
0x0ac…0ad 0x81
0x0ad…0ae »*«
0x0ae…0af 0x09
0x0af…0b0 0xb3
0x0b0…0e3 »DFU SOURCE NAME, , USER LIB, DSP FORMAT SOURCE, , ,«
0x0e3…0e4 0x09
0x0e4…0e5 0x81
0x0e5…0e6 »*«
0x0e6…0e7 0x09
0x0e7…0e8 0x81
0x0e8…0e9 »*«
0x0e9…0ea 0x09
0x0ea…0eb 0x8d
0x0eb…0f8 »LABEL ON DISK«
0x0f8…0f9 0x2f
0x0f9…0fa 0x81
0x0fa…0fb »*«
0x0fb…0fc 0x09
0x0fc…0fd 0x81
0x0fd…0fe »*«
0x0fe…0ff 0x45
0x0ff…100 0x81
0x100…101 »*«
0x101…102 0x09
0x102…103 0x95
0x103…118 »* REQUIRED PARAMETERS«
0x118…119 0x31
0x119…11a 0x81
0x11a…11b »*«
0x11b…11c 0x09
0x11c…11d 0x81
0x11d…11e »*«
0x11e…11f 0x45
0x11f…120 0x81
0x120…121 »*«
0x121…122 0x09
0x122…123 0x81
0x123…124 »*«
0x124…125 0x03
0x125…126 0x8d
0x126…133 »1 - FILE NAME«
0x133…134 0x35
0x134…135 0x81
0x135…136 »*«
0x136…137 0x09
0x137…138 0x81
0x138…139 »*«
0x139…13a 0x03
0x13a…13b 0x90
0x13b…14b »2 - PROGRAM NAME«
0x14b…14c 0x32
0x14c…14d 0x81
0x14d…14e »*«
0x14e…14f 0x09
0x14f…150 0x81
0x150…151 »*«
0x151…152 0x03
0x152…153 0xa1
0x153…174 »3 - FILE DEFINITION SOURCE MEMBER«
0x174…175 0x21
0x175…176 0x81
0x176…177 »*«
0x177…178 0x09
0x178…179 0x81
0x179…17a »*«
0x17a…17b 0x45
0x17b…17c 0x81
0x17c…17d »*«
0x17d…17e 0x09
0x17e…17f 0xc7
0x17f…1c6 »***********************************************************************«
0x1c6…1c7 0x09
0x1c7…1c8 0x99
0x1c8…1e1 »// MEMBER PROGRAM1-#DF#MG«
0x1e1…1e2 0x37
0x1e2…1e3 0x96
0x1e3…1f9 »// MEMBER USER1-#DF#MG«
0x1f9…1fa 0x3a
0x1fa…1fb 0x9e
0x1fb…219 »// IF JOBQ-YES #ERR 0421,C,DFU«
0x219…21a 0x32
0x21a…21b 0xa0
0x21b…23b »// IF EVOKED-YES #ERR 0421,C,DFU«
0x23b…23c 0x30
0x23c…23d 0x81
0x23d…23e »*«
0x23e…23f 0x02
0x23f…240 0xb5
0x240…275 »FILL CHARACTER Z-ZERO FILLED, ALL OTHERS BLANK FILLED«
0x275…276 0x0e
0x276…277 0x81
0x277…278 »*«
0x278…279 0x09
0x279…27a 0xb9
0x27a…2b3 »// IFF ?5'D'?/D IFF ?5'Z'?/Z IFF ?5'B'?/B #ERR 0201,C,DFU«
0x2b3…2b4 0x17
0x2b4…2b5 0xae
0x2b5…2e3 »// IFF DATAF1-?13'?1R'0210'?'? #ERR 0209,C,DFU«
0x2e3…2e4 0x22
0x2e4…2e5 0xb2
0x2e5…317 »// IFF ?9?/#LIBRARY IFF DATAF1-?9? #ERR 0224,C,DFU«
0x317…318 0x1e
0x318…319 0x9e
0x319…337 »// IF INQUIRY-NO IF ?12'1'?/ *«
0x337…338 0x32
0x338…339 0x95
0x339…34e »// ELSE IF ?12'2'?/ *«
0x34e…34f 0x3b
0x34f…350 0x9f
0x350…36f »// IF ?11?/NOSETUP GOTO NOSETUP«
0x36f…370 0x31
0x370…371 0x9b
0x371…38c »// LOCAL OFFSET-1,DATA-'DFU«
0x38c…38d 0x05
0x38d…38e 0x91
0x38e…39f »000R',AREA-SYSTEM«
0x39f…3a0 0x1f
0x3a0…3a1 0xcb
0x3a1…3ec »// IF ?2?/ #DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,I,#DF?WS??12?,?5?,,?13'?1?'?«
0x3ec…3ed 0x05
0x3ed…3ee 0x9c
0x3ee…40a »// ELSE IFF SUBR-'?2?,?9?' +«
0x40a…40b 0x34
0x40b…40c 0x0c
0x40c…40d 0x85
0x40d…412 »#DFMP«
0x412…413 0x02
0x413…414 0xba
0x414…44e »?1?,?2?,?3?,?10?,?6?,?7?,,?9?,I,#DF?WS??12?,?5?,,?13'?1?'?«
0x44e…44f 0x03
0x44f…450 0x99
0x450…469 »// IFF ?L'12,1'?/R RETURN«
0x469…46a 0x37
0x46a…46b 0x8e
0x46b…479 »// TAG NOSETUP«
0x479…47a 0x42
0x47a…47b 0xbc
0x47b…4b7 »// IF ?11?/NOSETUP IFF SUBR-'?2R'0261'?,?9?' #ERR 0016,C,DFU«
0x4b7…4b8 0x14
0x4b8…4b9 0xae
0x4b9…4e7 »// IFF ?2?/ IFF LOAD-'?2?,?9?' #ERR 0278,C,DFU«
0x4e7…4e8 0x22
0x4e8…4e9 0x8d
0x4e9…4f6 »// LOAD #DFEX«
0x4f6…4f7 0x43
0x4f7…4f8 0xb3
0x4f8…52b »// FILE NAME-#DFDATA,LABEL-?13?,RETAIN-T,DISP-SHRRM«
0x52b…52c 0x1d
0x52c…52d 0x98
0x52d…545 »// PRINTER NAME-#DFPRINT«
0x545…546 0x38
0x546…547 0xa0
0x547…567 »// WORKSTN UNIT-?WS?,RESTORE-YES«
0x567…568 0x30
0x568…569 0x86
0x569…56f »// RUN«
0x56f…570 0x4a
0x570…571 0xb2
0x571…5a3 »// DFU FT-?2?,UT-I?5?,LB-?9?,DF-#DF?WS??12?,FL-?1?«
0x5a3…5a4 0x1e
0x5a4…5a5 0x86
0x5a5…5ab »// END«
0x5ab…5ac 0x4a
0x5ac…5ad 0x92
0x5ad…5bf »// IFF ?2?/ RETURN«
0x5bf…5c0 0x3e
0x5c0…5c1 0x8e
0x5c1…5cf »// LOAD $MAINT«
0x5cf…5d0 0x42
0x5d0…5d1 0x86
0x5d1…5d7 »// RUN«
0x5d7…5d8 0x4a
0x5d8…5d9 0xb3
0x5d9…60c »// DELETE NAME-#DF?WS??12?,LIBRARY-ALL,LIBRNAME-?9?«
0x60c…60d 0x1d
0x60d…60e 0x86
0x60e…614 »// END«
0x614…615 0x4a
0x615…616 0x00
0x616…620 c4 c6 e4 32 a0 61 61 40 c9 c6                                                                     ┆DFU µ// IF┆
0x620…640 40 c5 e5 d6 d2 c5 c4 60 e8 c5 e2 40 7b c5 d9 d9 40 f0 f4 f2 f1 6b c3 6b c4 c6 e4 30 81 5c 02 b5   ┆ EVOKED-YES #ERR 0421,C,DFU a* §┆
0x640…660 c6 c9 d3 d3 40 c3 c8 c1 d9 c1 c3 e3 c5 d9 40 e9 60 e9 c5 d9 d6 40 c6 c9 d3 d3 c5 c4 6b 40 c1 d3   ┆FILL CHARACTER Z-ZERO FILLED, AL┆
0x660…680 d3 40 d6 e3 c8 c5 d9 e2 40 c2 d3 c1 d5 d2 40 c6 c9 d3 d3 c5 c4 0e 81 5c 09 b9 61 61 40 c9 c6 c6   ┆L OTHERS BLANK FILLED a* ¾// IFF┆
0x680…6a0 40 6f f5 7d c4 7d 6f 61 c4 40 c9 c6 c6 40 6f f5 7d e9 7d 6f 61 e9 40 c9 c6 c6 40 6f f5 7d c2 7d   ┆ ?5'D'?/D IFF ?5'Z'?/Z IFF ?5'B'┆
0x6a0…6c0 6f 61 c2 40 7b c5 d9 d9 40 f0 f2 f0 f1 6b c3 6b c4 c6 e4 17 ae 61 61 40 c9 c6 c6 40 c4 c1 e3 c1   ┆?/B #ERR 0201,C,DFU Þ// IFF DATA┆
0x6c0…6e0 c6 f1 60 6f f1 f3 7d 6f f1 d9 7d f0 f2 f1 f0 7d 6f 7d 6f 40 7b c5 d9 d9 40 f0 f2 f0 f9 6b c3 6b   ┆F1-?13'?1R'0210'?'? #ERR 0209,C,┆
0x6e0…700 c4 c6 e4 22 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 c4 c1 e3   ┆DFU ¥// IFF ?9?/#LIBRARY IFF DAT┆

Reduced view