DataMuseum.dk

top - metrics - download

    Length: 3239 (0xca7)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »SAMKONV1«

└─⟦94d9f3bc1⟧ Bits:30008571 DDMQ1-0006_Div_konverteringspgm_LMC
    └─⟦this⟧ »SAMKONV1« 

Text

/*FÖRSTA RADEN*/                                                               
/*SAMKONV PLOCKAR UT INGÅENDE SALDON FRÅN MSAB:S INTERIMSSYSTEM                
OCH GENERERAR DEN NYA KTOTX-FILEN                                              
OBS:SAMFIL MÅSTE SEDAN TÖMMAS OCH FÅ STÖRRE REC:LÄNGD (150)                    
KLART 781106  PROGR:TD*/                                                       
DCL 1 SAM,2 SKO FIXED(4),2 SAVD CHAR(3),                                       
2 SAD(12) FIXED(11,2),2 SAK(12) FIXED(11,2);                                   
                                                                               
DCL 1 XSAM,2 STR,3 XKTO FIXED(4),                                              
3 XMNR FIXED(2),2 XAD FIXED(11,2),2 XAK FIXED(11,2),                           
2 HJKOD CHAR(1);                                                               
                                                                               
DCL 1 KTO,2 XKONTO FIXED(4),2 XTEXT CHAR(34);                                  
                                                                               
DCL 1 KTX,2 KONTO FIXED(4),2 Z CHAR(1),2 K CHAR(4),2 TEXT CHAR(34),            
2 IB FIXED(13,2),2 DUM CHAR(6);                                                
                                                                               
DCL XSAMFIL FILE,KTOTX FILE,XKTOTX FILE,                                       
S CHAR(1);                                                                     
PUT FILE(D)SKIP EDIT('KONVERTERINGSPROGRAM FÖR MSAB')(A(37))                   
('SÄTT IN DISKETTER MED FÖLJ. FILER:')(A(37))                                  
('1-GAMLA SAMFIL,OMDÖPT TILL XSAMFIL')(A(37))                                  
('2-GAMLA KTOTX,OMDÖPT TILL XKTOTX')(A(37))                                    
('3-KTOTX,TOM FIL MED REC:LÄNGD=55')(A(37))                                    
('  OCH MINST LIKA STOR SOM XKTOTX')(A(37))                                    
('DÅ DU ÄR KLAR TRYCK RETURN!')(A(37));                                        
GET SKIP LIST(S);                                                              
PUT FILE(D)SKIP;                                                               
OPEN XSAMFIL;OPEN KTOTX;OPEN XKTOTX;                                           
A1:ON ENDFILE GOTO SLUT;                                                       
READ FILE(XKTOTX)INTO(KTO);                                                    
KONTO=XKONTO;Z='A';K=KONTO CAT '    ';TEXT=XTEXT;IB=0;                         
XKTO=XKONTO;IF XKTO<1000 THEN GOTO WR;                                         
XMNR=0;                                                                        
ON ERROR GOTO WR;                                                              
READ KEY(STR)FILE(XSAMFIL)INTO(XSAM);                                          
IB=XAD-XAK;                                                                    
WR:WRITE FILE(KTOTX)FROM(KTX);                                                 
GOTO A1;                                                                       
SLUT:CLOSE KTOTX;                                                              
END;