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

⟦1d36c4813⟧ 

    Length: 2048 (0x800)
    Notes: MEMBER_P, Member_Text
    Names: »#LIST   «

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⟧ ».#LIST   «

Text Member

**************************************************** 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

Full view