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

⟦a7be8b97d⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »SECEDIT «

Derivation

└─⟦7674f3f85⟧ Bits:30009796 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 002 of 002
    └─⟦f57023a34⟧ 
        └─⟦this⟧ ».SECEDIT «

Text Member

// IF EVOKED-YES #ERR 5995,3,SYS,SECEDIT                                        
// IF JOBQ-YES #ERR 5995,3,SYS,SECEDIT                                          
// IFF ?1'USERID'?/USERID IFF ?1?/RESOURCE IFF ?1?/COMM IFF ?1?/OFFICE +        
   IFF ?1?/RESFLDR IFF ?1?/PASSTHRU   #ERR 6820,3,SYS                           
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?1?',BLANK-8                                
// IFF ?1?/RESFLDR IFF ?1?/OFFICE GOTO CONTINUE                                 
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'?2?',BLANK-8                                
// TAG CONTINUE                                                                 
// LIBRARY NAME-0                                                               
// MEMBER USER1-##MSG2                                                          
// * 5785                                                                       
// MEMBER USER1-##MSG1,USER2-##MSG2                                             
// IF ?1?/USERID LOAD $PRUED                                                    
// ELSE IF ?1?/COMM LOAD $PRCED                                                 
// ELSE IF ?1?/RESOURCE LOAD $RREDT                                             
// ELSE IF ?1?/PASSTHRU LOAD $PRUED                                             
// ELSE LOAD $RRTED                                                             
// RUN

Full view