DataMuseum.dk

top - metrics - download

    Length: 3002 (0xbba)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »KOUT1«

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

Text

/*FÖRSTA RADEN*/                                                               
/*UTSKRIFT AV KONTOPLANEN FRÅN TEXTFILEN KTOTX          GENERELLT PGM.         
KLART: 781104   PROGR:TD */                                                    
                                                                               
DCL 1 KTO,2 KSTR,3 KONTO FIXED(4),3 Z CHAR(1),2 K CHAR(4),2 TEXT CHAR(34),     
2 IB FIXED(13,2);                                                              
DCL 1 DATREC,2 XDAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1),     
2 CO FIXED(1);                                                                 
DCL DATFIL FILE,KTOTX FILE,S CHAR(1),RAD FIXED(2),SIDA FIXED(4),RECNR BINARY,  
DAG CHAR(6);                                                                   
OPEN KTOTX;OPEN DATFIL;                                                        
READ FILE(DATFIL)INTO(DATREC);IF XDAG='XXXXXX' THEN GO TO SLUT;                
DAG=XDAG;XDAG='XXXXXX';                                                        
REWRITE FILE(DATFIL)FROM(DATREC);                                              
PUT FILE(D) SKIP EDIT(' ')(A(37))('***    UTSKRIFT AV KONTOPLANEN    ***')     
(A(74))('STÄLL IN PERFORERINGEN')(A(37))('TRYCK SEDAN RETURN.')(A(37));        
GET SKIP LIST(S);                                                              
TAB:PUT FILE(D) SKIP EDIT('SKA ALLA KONTON SKRIVAS UT, ELLER')(A(37))          
('BARA DE 4-SIFFRIGA')(A(37))('(DVS DE SOM ÄR AKTUELLA VID')(A(37))            
('TRANSAKTIONER)')(A(74))('1 - ALLA')(A(37))('2 - ENDAST 4-SIFFRIGA')          
(A(35));GET SKIP LIST(S);IF VERIFY(S,'12')=0 THEN GO TO TAB;                   
PUT FILE(D)SKIP EDIT(' ')(A(43))('*** UTSKRIFT PÅGÅR ***')(A(68));             
RAD=5;SIDA=0;RECNR=0;                                                          
RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDIT('UTSKRIFT AV KONTOPLANEN.')(A);              
IF S='1' THEN PUT EDIT(' ALLA KONTON.')(A);                                    
ELSE PUT EDIT('ENDAST 4-SIFFRIGA KONTON.')(A);                                 
PUT EDIT(' ')(A(6))('DATUM:')(A)(DAG)(A(10))('SIDA:')(A)(SIDA)(A)SKIP(2)EDIT   
('KONTO')(A(8))('TEXT')(A)SKIP;                                                
RAD=45;                                                                        
ST:ON ERROR GO TO SLUT;READ KEY('A')FILE(KTOTX)INTO(KTO)KEYTO(Z);              
IF RECNR>=UNSPEC(KTOTX) THEN GO TO UT;                                         
RECNR=UNSPEC(KTOTX);                                                           
IF KONTO<1000 & S¬='1' THEN GO TO ST;                                          
PUT SKIP EDIT(KONTO)(A(8))(TEXT)(A);                                           
RAD=RAD-1;                                                                     
IF RAD<12 THEN GO TO RUB;GO TO ST;                                             
UT:PUT SKIP(RAD-5);                                                            
SLUT:CALL LOAD('BOKRUT',6);END;