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

⟦6b186eb3e⟧ Q1_Text, reclen=79

    Length: 4108 (0x100c)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »ALTE1«

Derivation

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

Text

/*FÖRSTA RADEN*/                                                               
/*ALTE BYTER ORDNING I RECORD I KTOTX: KO,KOD,AVD BLIR KOD,AVD,KONTO I         
BUDGETRECORDS (DVS OM KOD="B").I TEXTRECORDS BLIR KONTO,KOD ÄNDRAT TILL        
KOD,KONTO.(DVS OM KOD="A")                                                     
GENERELLT PGM.       KLART: 781104  PROGR:TD */                                
                                                                               
DCL 1 DUM1(40),2 DKO1 FIXED(4),2 DKOD1 CHAR(1),2 DX1 CHAR(51);                 
DCL 1 XDUM1(40),2 XKOD1 CHAR(1),2 X1 CHAR(54);                                 
                                                                               
DCL 1 DUM2(7),2 DKO2 FIXED(4),2 DKOD2 CHAR(1),2 DX2 CHAR(51);                  
DCL 1 XDUM2(7),2 XKOD2 CHAR(1),2 X2 CHAR(54);                                  
                                                                               
DCL 1 DUM3,2 DKO3 FIXED(4),2 DKOD3 CHAR(1),2 DX3 CHAR(51);                     
DCL 1 XDUM3,2 XKOD3 CHAR(1),2 X3 CHAR(54);                                     
                                                                               
DCL 1 KTX,2 KNR FIXED(4),2 KOD CHAR(1),2 X CHAR(51);                           
DCL 1 XKTX,2 XKOD CHAR(1),2 XKNR FIXED(4),2 XX CHAR(51);                       
                                                                               
DCL 1 KBU,2 BKO FIXED(4),2 BKOD CHAR(1),2 BAVD CHAR(3),2 Y CHAR(48);           
DCL 1 XKBU,2 XBKOD CHAR(1),2 XBAVD CHAR(3),2 XBKO FIXED(4),2 XY CHAR(48);      
                                                                               
SHIFT:PROC;                                                                    
IF DKOD3='A' THEN DO;KTX=DUM3;XKOD=KOD;XKNR=KNR;XX=X;XDUM3=XKTX;END;           
IF DKOD3='B' THEN DO;KBU=DUM3;XBKOD=BKOD;XBAVD=BAVD;XBKO=BKO;XY=Y;             
XDUM3=XKBU;END;                                                                
RETURN;END;                                                                    
                                                                               
DCL KTOTX FILE,RECNR BINARY;OPEN KTOTX;                                        
RECNR=0;                                                                       
IN1:ON ENDFILE GO TO IN2;READ FILE(KTOTX)INTO(DUM1);RECNR=UNSPEC(KTOTX);       
DO I=1 TO 40;DUM3=DUM1(I);                                                     
CALL SHIFT;                                                                    
XDUM1(I)=XDUM3;                                                                
END;                                                                           
REWRITE FILE(KTOTX)FROM(XDUM1);                                                
GO TO IN1;                                                                     
                                                                               
IN2:UNSPEC(KTOTX)=RECNR;                                                       
IN2B:ON ENDFILE GO TO IN3;READ FILE(KTOTX)INTO(DUM2);RECNR=UNSPEC(KTOTX);      
DO I=1 TO 7;DUM3=DUM2(I);                                                      
CALL SHIFT;                                                                    
XDUM2(I)=XDUM3;                                                                
END;                                                                           
REWRITE FILE(KTOTX)FROM(XDUM2);                                                
GO TO IN2B;                                                                    
                                                                               
IN3:UNSPEC(KTOTX)=RECNR;                                                       
IN3B:ON ENDFILE GO TO UT;READ FILE(KTOTX)INTO(DUM3);                           
CALL SHIFT;                                                                    
REWRITE FILE(KTOTX)FROM(XDUM3);                                                
GO TO IN3B;                                                                    
UT:END;