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

⟦51d47c494⟧ 

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

Derivation

└─⟦5475bb115⟧ Bits:30009795 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 001 of 002
    └─⟦cd453c591⟧ 
        └─⟦this⟧ ».DSPMNU  «

Text Member

// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB              04/24/92                   
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB                                         
// IFF JOBQ-YES IFF EVOKED-YES GOTO $DM05                                       
// #ERR 1214,23,VSP,'DSPMNU'                         Cannot be jobq/evoked      
// IF ?CD?=1012    RETURN                            Elected a "2"              
// TAG $DM05                                                                    
// IFF ?1?=  GOTO $DM10                                                         
// EVALUATE P1=?1'?MENU?'?  P2=?2'?CLIB?'?           Default help prompts       
HELP DSPMNU,?1?,?2?                                                             
// RETURN                                                                       
// TAG $DM10                                                                    
// EVALUATE P1=?1'?MENU?'?  P2=?2'?CLIB?'?           P33936 920418jjs           
// IFF LOAD-'?1?##,?2?' #ERR,#LIBRARY 1211,23,VSP,'?1?/?2?'                     
// IFF LOAD-'?1?##,?2?' IF ?CD?=1012  RETURN         Took a "2" to halt         
// MEMBER USER1-?1?##,LIBRARY-?2?                    Set menu as msg mbr        
// MEMBER USER2-##VSP1,LIBRARY-#VASPLIB              For 1213 message           
// LOCAL OFFSET-201,BLANK-16,DATA-'?2?'              Screen display             
// LOCAL OFFSET-211,DATA-'?1?'                                                  
// LOAD $VAPM,#VASPLIB                                                          
// RUN

Full view