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