DataMuseum.dk

top - metrics - download

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

└─⟦2d3ae9df8⟧ Bits:30008654 DDMQ1-0094_Nya_bokforingssystemet_I_LMC_MSAB_COPY_Skriv_BOKRUT_780220_TD
    └─⟦this⟧ »KOUPP1« 

Text

/*FÖRSTA RADEN*/                                                               
/*KOUPP1 UPPLÄGGNING AV NYA KONTON I FILEN KTOTX                               
KLART: XXXXXX   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);      
DCL 1 XDATREC,2 XDAG CHAR(9),2 XMNR FIXED(2),2 XSK(14) CHAR(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)=' ';                                     
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 TYPIST('BOKRUT┣0d┫',7);END;