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

⟦8de058840⟧

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

Derivation

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

Text Member

* Rettelse af denne procedure skal ske fra MENU PROG - aldrig SEU direkte. ***                                          
// IFF ?21?/X MPFIRMA ,,,FAKINPFM,?1?,?2?,?3?,?4?                                                                       
DATOFMT                                                                                                                 
// ATTR CANCEL-NO                                                                                                       
// MEMBER  USER1-FAKMSG                                                                                                 
// LOCAL OFFSET-20,DATA-'FAKINP  '                                                                                      
// * '**  O R D R E I N D T A S T N I N G  **'                                                                          
// IF INQUIRY-YES * '**  PROCEDUREN M$ IKKE K@RES SOM INQUIRY-JOB'                                                      
// IF INQUIRY-YES WAIT INTERVAL-000002                                                                                  
// IF INQUIRY-YES CANCEL                                                                                                
// IFF DATAF1-?L'491,2'?.ORDIN KUNERR 1000,1001,,,C                                                                     
// IFF DATAF1-?L'491,2'?.ORBAS ERR 1002,3                                                                               
// IF ACTIVE-'SLUTTE?L'491,2'?,FAK110?L'491,2'?,FAK200?L'491,2'?' ERR 9,3                                               
// LOCAL OFFSET-03,DATA-'00000000000000000FAK100  '                                                                     
FAKIN1?L'491,2'?                                                                                                        
* PROCEDURE  F A K I N P              HIST-NO   MRT-NO    PDATA-NO                                                      

Full view