DataMuseum.dk

top - metrics - download

    Length: 4029 (0xfbd)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »NYMÅN1«

└─⟦ff53f924a⟧ Bits:30008653 DDMQ1-0093_Nya_bokforingssystemet_II_original
    └─⟦this⟧ »NYMÅN1« 

Text

/*FÖRSTA RADEN*/                                                               
/*NYMÅN  HJÄLPPROGRAM FÖR GENERERING AV TRANSAKTIONS-DISKETT FÖR NY            
BOKFÖRINGSMÅNAD                                                                
KLART:780709   PROGR:TD*/                                                      
DCL S CHAR(1),XMON CHAR(3),MON CHAR(3),INF CHAR(128),                          
MONS CHAR(48)INIT('JAN,FEB,MAR,APR,MAJ,JUN,JUL,AUG,SEP,OKT,NOV,DEC');          
DCL 1 IND,2 INDFIL FILE;                                                       
DCL 1 FSTR,2 A BINARY,2 NAMN CHAR(8),2 B(7) BINARY;                            
PUT FILE(D)SKIP EDIT('** INSTRUKTIONER FÖR TILLVERKNING')(A(37))               
('AV TRANSAKTIONS-DISKETT')(A(37))                                             
('FÖR NY BOKFÖRINGSMÅNAD:')(A(37))                                             
('I DRIVE #1 SKA SENASTE MÅNADS')(A(37))                                       
('DISKETT SITTA.')(A(37))                                                      
('I DRIVE #2 SKA FINNAS EN TOM DISKETT.')(A(37))                               
('TRYCK RETURN DÅ DU HAR SATT IN')(A(37))                                      
('DISKETTERNA.')(A(36));                                                       
GET SKIP LIST(S);                                                              
PUT FILE(D)SKIP;                                                               
NAMN='INDEX   ';                                                               
IND=FSTR;                                                                      
OPEN INDFIL;                                                                   
UNSPEC(INDFIL)=1;                                                              
TEST:                                                                          
ON ENDFILE GOTO FELDISK;                                                       
READ FILE(INDFIL)INTO(FSTR);                                                   
XMON=SUBSTR(NAMN,1,3);                                                         
I=INDEX(MONS,XMON);                                                            
IF I¬=0 THEN GOTO KOP;                                                         
GOTO TEST;                                                                     
KOP:                                                                           
I=I+4;IF I>48 THEN I=I-48;                                                     
MON=SUBSTR(MONS,I,3);                                                          
PUT FILE(D)SKIP EDIT('SENASTE MÅNAD:')(A(14))(XMON)(A(23))                     
('NY MÅNAD:')(A(14))(MON)(A(60))('OK? SVARA "J" ELLER "N":')(A(36));           
GET SKIP LIST(S);                                                              
IF S¬='J' THEN GOTO FELDISK;                                                   
PUT FILE(D)SKIP EDIT('ÄR DET OK ATT INITIERA UPP')(A(37))                      
('DISKETTEN I #2  "J" ELLER "N":')(A(36));                                     
GET SKIP LIST(S);                                                              
IF S¬='J' THEN GOTO UT;                                                        
PUT FILE(D)SKIP;                                                               
INF='DISK I DISK R ' CAT XMON CAT ' X DISK R ' CAT XMON CAT ' ' CAT MON        
CAT ' DISK R X ' CAT XMON CAT ' DISK C';                                       
CALL LOAD(INF,54);GOTO UT;                                                     
FELDISK:PUT FILE(D)SKIP EDIT('NÅGONTING ÄR FEL!')(A(37))                       
('SKRIV UT INDEX PÅ DISKETTEN I #1')(A(37))                                    
('OCH SE EFTER VAD SOM ÄR FEL.')(A(37))                                        
('FÖRSÖK SEDAN IGEN.')(A(37))                                                  
('LYCKA TILL!')(A(74))('TRYCK RETURN.')(A(37));                                
GET SKIP LIST(S);                                                              
UT:END;