DataMuseum.dk

top - metrics - download

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

└─⟦1f3202981⟧ Bits:30008731 DDMQ1-0173_MSAB_Bokföring_Alla_Program_i_PL1_ref_ex_780428
    └─⟦this⟧ »KOUPP1« 

Text

/*FÖRSTA RADEN*/                                                               
/*KOUPP1 UPPLÄGGNING AV NYA KONTON I FILEN KTOTX                               
KLART: 780428 FÖR MSAB  PROGR:TD */                                            
DCL 1 KTO,2 KONTO FIXED(4),2 TEXT CHAR(34);                                    
                                                                               
DCL 1 DATREC,2 DAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1),      
2 CO FIXED(1);                                                                 
DCL 1 XDATREC,2 XDAG CHAR(9),2 XMNR FIXED(2),2 XSK(14) CHAR(1),2 XCO FIXED(1); 
XDAG='XXXXXX   ';XMNR=0;                                                       
DCL DATFIL FILE,KTOTX FILE,SVAR CHAR(40),S CHAR(1),RAD FIXED(2),SIDA FIXED(4), 
KOSVAR CHAR(4);                                                                
OPEN KTOTX;CALL SEOF(KTOTX);OPEN DATFIL;                                       
READ FILE(DATFIL)INTO(DATREC);IF DAG='XXXXXX' THEN GO TO SLUT;                 
DO I=1 TO 13;XSK(I)=SK(I);END;XSK(14)=' ';XCO=CO;                              
REWRITE FILE(DATFIL)FROM(XDATREC);                                             
PUT FILE(D) SKIP EDIT(' ')(A(37))(' *** UPPLÄGGNING AV NYA KONTON  ***')(A(74))
('STÄLL IN PERFORERINGEN')(A(37))('TRYCK SEDAN RETURN.')(A(37));               
GET SKIP LIST(S);PUT FILE(D) SKIP;                                             
RAD=5;SIDA=0;                                                                  
RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDIT('UPPLÄGGNING AV NYA KONTON.')(A(40))         
('DATUM:')(A)(DAG)(A(10))('SIDA:')(A)(SIDA)(A)SKIP(2) EDIT('KONTO')(A(8))      
('TEXT')(A)SKIP;RAD=45;                                                        
ST: PUT FILE(D) SKIP EDIT('NYTT KONTONUMMER:')(A(33));                         
GET SKIP LIST(KOSVAR);IF KOSVAR='SLUT' THEN GO TO UT;                          
IF VERIFY(KOSVAR,' 0123456789')=0 THEN GO TO ST;                               
KONTO=KOSVAR;                                                                  
PUT FILE(D)EDIT(KONTO)(A(4))('KONTOTEXT:')(A(40));                             
TEXT2:GET SKIP LIST(SVAR);IF SUBSTR(SVAR,35,6)='      ' THEN GO TO OK;         
PUT FILE(D)SKIP EDIT('FÖR LÅNG TEXT!')(A(37))('DU FÅR INTE FORTSÄTTA PÅ')      
(A(37))('NÄSTA RAD.')(A(37))('PR0VA EN GÅNG TILL:')(A(40));                    
DO I=1 TO 4;CALL OUTPUT(1,6);DO J=1 TO 300;END;END;                            
GO TO TEXT2;                                                                   
OK:TEXT=SUBSTR(SVAR,1,34);PUT FILE(D)EDIT(TEXT)(A(34));                        
PUT SKIP EDIT(KONTO)(A(8))(TEXT)(A(50));                                       
WRITE FILE(KTOTX)FROM(KTO);                                                    
RAD=RAD-1;IF RAD<12 THEN GO TO RUB;GO TO ST;                                   
UT:CLOSE KTOTX;PUT SKIP(RAD-5);                                                
SLUT:CALL LOAD('BOKRUT',6);END;