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

⟦12fb7a2f2⟧ 

    Length: 512 (0x200)
    Notes: MEMBER_P, Member_Text
    Names: »KREREKXX«

Derivation

└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
    └─⟦2c22cec32⟧ 
        └─⟦this⟧ ».KREREKXX«

Text Member

* Rettelse af denne procedure skal ske fra MENU PROG - aldrig SEU direkte. ***                                          
// IFF ?21?/X MPFIRMA ,,,KREREKXX,?1?,?2?,?3?,?4?                                                                       
* PROCEDURE  K R E R E K                                                                                                
// ATTR CANCEL-NO                                                                                                       
// MEMBER USER1-KREMSG                                                                                                  
// LOCAL OFFSET-20,DATA-'KRE140  '                                                                                      
// IFF ?M'9900,1,1'?/L ERR 9910,3                                                                                       
// IF  ACTIVE-'FAKINP?L'491,2'?,SLUTTE?L'491,2'?,KRE100?L'491,2'?,KREREK?L'491,2'?' ERR 9,3                             
*   INDS#TTES  27/10 88 PS                                                                                              
// IF  ACTIVE-'VARDIS' ERR 9,3                                                                                          
*                                                                                                                       
// IFF DATAF1-?L'491,2'?.LVIND ERR 1207,3                                                                               
// KRE140                                                                                                               
// KRE150                                                                                                               
// KREOR3?L'491,2'?

Full view