DataMuseum.dk

Presents historical artifacts from the history of:

Q1 computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Q1 computer

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦c581f0b4b⟧ Q1_Text, reclen=79

    Length: 1501 (0x5dd)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »NYVERNR1«

Derivation

└─⟦7bb65a061⟧ Bits:30008625 DDMQ1-0065_Reflex_MSAB_Bokf_system_diskett_1_2_Sid2_Alla_pgm_PL1_781120_side0
    └─⟦this⟧ »NYVERNR1« 
└─⟦aeb45b905⟧ Bits:30008623 DDMQ1-0063__LMC_Original_Generella_pgm_for_bokforing_Sid1_PL1_Sid2_kompil_781105_side1
    └─⟦this⟧ »NYVERNR1« 
└─⟦cfd478037⟧ Bits:30008627 DDMQ1-0066_MSAB_ref_ex_Bokf_system_NFK_diskett_2_2_781120_side0
    └─⟦this⟧ »NYVERNR1« 
└─⟦d1c33ffd3⟧ Bits:30008583 DDMQ1-0017_Bokforingssystem_kallkod_Msab_790411
    └─⟦this⟧ »NYVERNR1« 
└─⟦d4a65d31f⟧ Bits:30008722 DDMQ1-0163_MSAB_Bokf_pgm_i_PL1_781112_TD
    └─⟦this⟧ »NYVERNR1« 
└─⟦f4c608b16⟧ Bits:30008624 DDMQ1-0064_LMC_Kopia_Generall_pgm_for_bokforing_Endast_PL1-vers_781105_B
    └─⟦this⟧ »NYVERNR1«

Text

/*F*/                                                                          
/*NYVERNR  ÄNDRAR "SENASTE VERNR" I FILEN SISTVER     GENERELLT PGM.           
KLART 781104  PROGR:TD*/                                                       
                                                                               
DCL 1 SISTAVER,2 VERNR FIXED(7);                                               
DCL SISTVER FILE,XVERNR FIXED(7);                                              
OPEN SISTVER;                                                                  
READ FILE(SISTVER)INTO(SISTAVER);                                              
XVERNR=VERNR;                                                                  
PUT FILE(D)SKIP EDIT('SENASTE ANVÄNDA VERNR=')(A(22))(XVERNR)(A(15))           
('ANGE NYTT "SENASTE NUMMER"')(A(37))                                          
('(FÖRSTA VERIFIKATIONEN KOMMER SEDAN')(A(37))                                 
('ATT FÅ DET SENASTE+1 SOM NUMMER)')(A(74));                                   
GET SKIP LIST(VERNR);                                                          
PUT FILE(D)SKIP;                                                               
REWRITE FILE(SISTVER)FROM(SISTAVER);                                           
PUT SKIP EDIT('SENASTE VERIFIKATIONSNUMMER ÄNDRAT FRÅN ')(A)                   
(XVERNR)(A)(' TILL ')(A)(VERNR)(A)SKIP(2);                                     
END;