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

⟦7e8a74a07⟧

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »#SEU    «

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
    └─⟦56d196776⟧ 
        └─⟦this⟧ ».#SEU    « 

* SEU NAME,TYPE,FORMAT NAME,STMT LENGTH,LIBRARY,DSF NAME                        
// MEMBER USER1-#SE#M1,LIBRARY-#SEULIB                                          
// MEMBER USER2-#SE#M2,LIBRARY-#SEULIB                                          
// MEMBER PROGRAM1-#SE#M1,LIBRARY-#SEULIB                                       
// MEMBER PROGRAM2-#SE#M2,LIBRARY-#SEULIB                                       
// IF JOBQ-YES #ERR 0579,C,SEU                                                  
// IF EVOKED-YES #ERR 0579,C,SEU                                                
// IF ?6?/  GOTO E                                                              
// IF ?1'?6?'?/  GOTO D                                                         
// TAG E                                                                        
// IF ?1?/  GOTO C                                                              
// GOTO D                                                                       
// TAG C                                                                        
// IF DSPLY-IGC GOTO F                                                          
// HELP SEU ?1?,?2'S'?,?3'#SE@XTRA'?,?4?,?5'?CLIB?'?,?6?                        
// RETURN                                                                       
// TAG F                                                                        
// HELP SEU ?1?,?2'S'?,?3'#SE$XTRA'?,?4?,?5'?CLIB?'?,?6?                        
// RETURN                                                                       
// TAG D                                                                        
// * 0104                                                                       
// LOAD #SEU,#SEULIB                                                            
// WORKSTN RESTORE-YES,UNIT-?WS?                                                
// PRINTER NAME-#SEUPRNT                                                        
// RUN                                                                          
// IF DSPLY-IGC GOTO G                                                          
// SEU NAME-?1?,TYPE-?2'S'?,FORMAT-?3'#SE@XTRA'?,LENGTH-?4?,+                   
LIBRARY-?5'?CLIB?'?,DSFNAME-?6?                                                 
// GOTO ENDST                                                                   
// TAG G                                                                        
// SEU NAME-?1?,TYPE-?2'S'?,FORMAT-?3'#SE$XTRA'?,LENGTH-?4?,+                   
LIBRARY-?5'?CLIB?'?,DSFNAME-?6?                                                 
// TAG ENDST                                                                    
// END                                                                          

0x000…001 0xb8
0x001…039 »* SEU NAME,TYPE,FORMAT NAME,STMT LENGTH,LIBRARY,DSF NAME«
0x039…03a 0x18
0x03a…03b 0xa6
0x03b…061 »// MEMBER USER1-#SE#M1,LIBRARY-#SEULIB«
0x061…062 0x2a
0x062…063 0xa6
0x063…089 »// MEMBER USER2-#SE#M2,LIBRARY-#SEULIB«
0x089…08a 0x2a
0x08a…08b 0xa9
0x08b…0b4 »// MEMBER PROGRAM1-#SE#M1,LIBRARY-#SEULIB«
0x0b4…0b5 0x27
0x0b5…0b6 0xa9
0x0b6…0df »// MEMBER PROGRAM2-#SE#M2,LIBRARY-#SEULIB«
0x0df…0e0 0x27
0x0e0…0e1 0x9e
0x0e1…0ff »// IF JOBQ-YES #ERR 0579,C,SEU«
0x0ff…100 0x32
0x100…101 0xa0
0x101…121 »// IF EVOKED-YES #ERR 0579,C,SEU«
0x121…122 0x30
0x122…123 0x8a
0x123…12d »// IF ?6?/«
0x12d…12e 0x02
0x12e…12f 0x86
0x12f…135 »GOTO E«
0x135…136 0x3e
0x136…137 0x8f
0x137…146 »// IF ?1'?6?'?/«
0x146…147 0x02
0x147…148 0x86
0x148…14e »GOTO D«
0x14e…14f 0x39
0x14f…150 0x88
0x150…158 »// TAG E«
0x158…159 0x48
0x159…15a 0x8a
0x15a…164 »// IF ?1?/«
0x164…165 0x02
0x165…166 0x86
0x166…16c »GOTO C«
0x16c…16d 0x3e
0x16d…16e 0x89
0x16e…177 »// GOTO D«
0x177…178 0x47
0x178…179 0x88
0x179…181 »// TAG C«
0x181…182 0x48
0x182…183 0x96
0x183…199 »// IF DSPLY-IGC GOTO F«
0x199…19a 0x3a
0x19a…19b 0xb8
0x19b…1d3 »// HELP SEU ?1?,?2'S'?,?3'#SE@XTRA'?,?4?,?5'?CLIB?'?,?6?«
0x1d3…1d4 0x18
0x1d4…1d5 0x89
0x1d5…1de »// RETURN«
0x1de…1df 0x47
0x1df…1e0 0x88
0x1e0…1e8 »// TAG F«
0x1e8…1e9 0x48
0x1e9…1ea 0xb8
0x1ea…222 »// HELP SEU ?1?,?2'S'?,?3'#SE$XTRA'?,?4?,?5'?CLIB?'?,?6?«
0x222…223 0x18
0x223…224 0x89
0x224…22d »// RETURN«
0x22d…22e 0x47
0x22e…22f 0x88
0x22f…237 »// TAG D«
0x237…238 0x48
0x238…239 0x89
0x239…242 »// * 0104«
0x242…243 0x47
0x243…244 0x94
0x244…258 »// LOAD #SEU,#SEULIB«
0x258…259 0x3c
0x259…25a 0xa0
0x25a…27a »// WORKSTN RESTORE-YES,UNIT-?WS?«
0x27a…27b 0x30
0x27b…27c 0x98
0x27c…294 »// PRINTER NAME-#SEUPRNT«
0x294…295 0x38
0x295…296 0x86
0x296…29c »// RUN«
0x29c…29d 0x4a
0x29d…29e 0x96
0x29e…2b4 »// IF DSPLY-IGC GOTO G«
0x2b4…2b5 0x3a
0x2b5…2b6 0xbd
0x2b6…2f3 »// SEU NAME-?1?,TYPE-?2'S'?,FORMAT-?3'#SE@XTRA'?,LENGTH-?4?,+«
0x2f3…2f4 0x13
0x2f4…2f5 0x9f
0x2f5…314 »LIBRARY-?5'?CLIB?'?,DSFNAME-?6?«
0x314…315 0x31
0x315…316 0x8d
0x316…323 »// GOTO ENDST«
0x323…324 0x43
0x324…325 0x88
0x325…32d »// TAG G«
0x32d…32e 0x48
0x32e…32f 0xbd
0x32f…36c »// SEU NAME-?1?,TYPE-?2'S'?,FORMAT-?3'#SE$XTRA'?,LENGTH-?4?,+«
0x36c…36d 0x13
0x36d…36e 0x9f
0x36e…38d »LIBRARY-?5'?CLIB?'?,DSFNAME-?6?«
0x38d…38e 0x31
0x38e…38f 0x8c
0x38f…39b »// TAG ENDST«
0x39b…39c 0x44
0x39c…39d 0x86
0x39d…3a3 »// END«
0x3a3…3a4 0x4a
0x3a4…3a5 0x00
0x3a5…3c0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff                  ┆                           ┆
0x3c0…3e0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
          […0x1…]

Reduced view