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

⟦57a3758a1⟧ 

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

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

Text Member

**************************************************** CHANGED 10/12/83 *         
*  ENTER  FILENAME, PROGRAM NAME, FILE DEFINITION,                    *         
*         NUMBER OF RECORDS, 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                                 *         
*   4 - NUMBER OF RECORDS                                             *         
*                                                                     *         
***********************************************************************         
// MEMBER PROGRAM1-#DF#MG                                                       
// MEMBER USER1-#DF#MG                                                          
// IF JOBQ-YES #ERR 0420,C,DFU                                                  
// IF EVOKED-YES #ERR 0420,C,DFU                                                
// IFF ?4?>0 #ERR 0088,C,DFU                                                    
// IF ?4?>8000000 #ERR 0088,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                       
*                                 FILE NAMED EXISTS ?                           
// IF DATAF1-?13'?1R'0202'?'? #ERR 0203,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                               
*                                 SUBROUTINE AND LOAD MEMBER EXISTS?            
// IF ?2?/ #DFMP ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,E,#DF?WS??12?,?5?,,?13'?1?'?     
// ELSE IFF SUBR-'?2?,?9?' #DFMP  ?1?,?2?,?3?,?10?,?6?,?7?,,?9?,E,+             
#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?,DISP-NEW,RETAIN-T,RECORDS-?4R'0207'?            
// RUN                                                                          
// DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??12?,UT-E?5?                              
// END                                                                          
// LOAD #DFEX                                                                   
// FILE NAME-#DFDATA,LABEL-?13?,DISP-SHRMM,RETAIN-T                             
// PRINTER NAME-#DFPRINT                                                        
// WORKSTN UNIT-?WS?,RESTORE-YES                                                
// RUN                                                                          
// DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??12?,UT-U?5?                              
// END                                                                          
// IFF ?2?/ RETURN                                                              
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE NAME-#DF?WS??12?,LIBRARY-ALL,LIBRNAME-?9?                             
// END

Full view