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

⟦776f77d33⟧ 

    Length: 1536 (0x600)
    Notes: MEMBER_P, Member_Text
    Names: »#DFMP   «

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

Text Member

* #DFMP FILENAME,FORMAT,RPGNAME,SORT/NOSORT/DISPLAY SOURCE,CATL,LIBNAME,        
*  MASTERNAME,USERLIB,UTILTYPE,DEFAULT NAME,FILL CHAR,,DISK FILE LABEL          
// IFF ?9?/L IFF ?2?/ IF LOAD-'?2?,?8?' #ERR 0276,C,DFU                         
// IFF ?9?/L IFF ?4?/ IF SOURCE-'?4?,?8?' #ERR 0277,C,DFU                       
// IF ?5?/ GOTO NOCHECK                                                         
// IFF ?5'NN'?/NN IFF ?5?/NY IFF ?5?/YN IFF ?5?/YY IFF ?5?/GO #ERR 0205,C,DFU   
// IFF ?5?/NN IF ?6?/ #ERR 0214,C,DFU                                           
// IFF ?5?/NN IFF ?5?/NY IFF SOURCE-'?6?,?8?' #ERR 0206,C,DFU                   
// IF ?5?/NY IF SOURCE-'?6?,?8?' #ERR 0204,C,DFU                                
// TAG NOCHECK                                                                  
// IF ?5?/ IFF ?6?/ IFF ?5'Y'?/ IFF SOURCE-'?6?,?8?' EVALUATE P5=''             
// IFF ?9?/L IFF ?4?/ IF ?4?/?6? #ERR 0275,C,DFU                                
// IFF SOURCE-'?3R'0215'?,?8?' #ERR 0216,C,DFU                                  
// LOAD #DFMP                                                                   
// IF JOBQ-NO IF EVOKED-NO WORKSTN RESTORE-YES,UNIT-?WS?                        
// PRINTER NAME-#DFPRINT                                                        
// RUN                                                                          
// DFU FL-?1?,FT-?2?,RG-?3?,DS-?4?,SP-?5?,SN-?6?,MF-?7?,LB-?8?,+                
UT-?9??11?,DF-?10?,LL-?13?                                                      
// END                                                                          
// IF ?9?/L RETURN                                                              
// IF ?L'12,1'?/S RETURN                                                        
// LOAD $SFGR                                                                   
// RUN                                                                          
// IF ?2?/ LOADMBR NAME-?10?,REPLACE-YES                                        
// ELSE LOADMBR NAME-?2?                                                        
// INOUT PRINT-NO,INLIB-?8?,OUTLIB-?8?,HALT-NO                                  
// IF ?4?/ CREATE SOURCE-?10?,NUMBER-?L'9,3'?                                   
// ELSE CREATE SOURCE-?4?,NUMBER-?L'9,3'?                                       
// END                                                                          
// IFF ?4?/ RETURN                                                              
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE NAME-?10?,LIBRARY-S,LIBRNAME-?8?                                      
// END

Full view