IBM Mainframe Forum

by **HarryBoy** » Wed Mar 13, 2019 1:40 pm

Hi, I have the code below, it is used on dataset, and my goal is to store indatat in WS-variabels and when the last condition is fulfilled (that is "Debiteras ej") then the data is sotred in output-parameters but I only recieve an empty file. I cannot show the indataset since it is production data. Any ideas are greatly welcomed.

Cheers
Harald

Select all

//******** JOB (8950,D743),'EZT1',CLASS=A,MSGCLASS=6,                          
// NOTIFY=*******,MSGLEVEL=(0,0),REGION=2048K                                  
//*                                                                            
//S010     EXEC CAFGT,PGMPARM=LIST                                             
//*                                                                            
//TRIN01   DD  DSN=*******.********,DISP=SHR                                   
//*                                                                            
//TRUT01   DD  DSN=*******.********.S03504.DATA1,                              
//*            DISP=SHR                                                        
//             DISP=(NEW,CATLG,DELETE),                                        
//             DCB=(RECFM=FB,LRECL=180),                                       
//             SPACE=(CYL,(5,1),RLSE)                                          
//*                                                                            

Select all

//SYSIN    DD *                                                                
FILE TRIN01                                                                    
     IN-TYP           1    1   A                                               
     IN-AVTAL-TEXT   36    5   A                                               
     IN-AVTAL        45    6   A                                               
     IN-DEBITERAS    89   12   A                                               
     IN-TYP2          2    7   A                                               
     IN-TYP3          2   18   A                                               
     IN-PENG2        95    6   N                                               
     IN-PENG3        95    6   N                                               
     IN-NAMN          2  100   A                                               
FILE TRUT01                                                                    
     UT-NAMN          1   99   A                                               
     UT-PENG2       100    6   N                                               
     UT-PENG3       107    6   N                                               
     UT-SUMMA       114    6   N                                               
     UT-AVTAL       121    6   A                                               
     UT-ALL           1  180   A                                               
     WS-VAR1          W    6   N VALUE ZEROS                                   
     WS-VAR2          W    6   N VALUE ZEROS                                   
     WS-VAR3          W    6   N VALUE ZEROS                 
     WS-AVTAL         W    6   A                                       
*                                                                      
JOB INPUT TRIN01                                                       
*                                                                      
*   MOVE SPACE TO UT-ALL                                               
    IF IN-TYP = '2'                                                    
       WS-NAMN = IN-NAMN                                               
    END-IF                                                             
    IF IN-AVTAL-TEXT = 'Avtal'                                         
       WS-AVTAL = IN-AVTAL                                             
    END-IF                                                             
    IF IN-TYP = '6'                                                    
       WS-VAR1  = IN-PENG2                                             
    END-IF                                                             
    IF IN-TYP2 = 'A-Porto'                                             
       WS-VAR2  = IN-PENG3                                             
    END-IF                                                             
    IF IN-DEBITERAS = 'Debiteras ej'                                   
       UT-NAMN = WS-NAMN                                               
       UT-AVTAL = WS-AVTAL                                             
       UT-PENG2 = WS-VAR1                                              
       UT-PENG3 = WS-VAR2                                              
       UT-SUMMA = WS-VAR1 + WS-VAR2                                    
       PUT TRUT01 FROM TRUT01                                          
    END-IF

by **HarryBoy** » Wed Mar 13, 2019 6:13 pm

I solved this but I have, maybe, a more interesting problem. Is there a way to store away a general number of rows and then print them if some condition is fulfilled?

Cheers!
Harald

by **Terry Heinze** » Wed Mar 13, 2019 6:59 pm

Please use the Code button to enclose code for readability:
Click Post Reply, then Code, then paste (or key) your code where the cursor is positioned, then Preview until satisfied, then Submit. Like so:

Select all

//******** JOB (8950,D743),'EZT1',CLASS=A,MSGCLASS=6, 
// NOTIFY=*******,MSGLEVEL=(0,0),REGION=2048K 
//* 
//S010 EXEC CAFGT,PGMPARM=LIST 
//* 
//TRIN01 DD DSN=*******.********,DISP=SHR 
//* 
//TRUT01 DD DSN=*******.********.S03504.DATA1, 
//* DISP=SHR 
// DISP=(NEW,CATLG,DELETE), 
// DCB=(RECFM=FB,LRECL=180), 
// SPACE=(CYL,(5,1),RLSE) 
//* 

//SYSIN DD * 
FILE TRIN01 
 IN-TYP 1 1 A 
 IN-AVTAL-TEXT 36 5 A 
 IN-AVTAL 45 6 A 
 IN-DEBITERAS 89 12 A 
 IN-TYP2 2 7 A 
 IN-TYP3 2 18 A 
 IN-PENG2 95 6 N 
 IN-PENG3 95 6 N 
 IN-NAMN 2 100 A 
FILE TRUT01 
 UT-NAMN 1 99 A 
 UT-PENG2 100 6 N 
 UT-PENG3 107 6 N 
 UT-SUMMA 114 6 N 
 UT-AVTAL 121 6 A 
 UT-ALL 1 180 A 
 WS-VAR1 W 6 N VALUE ZEROS 
 WS-VAR2 W 6 N VALUE ZEROS 
 WS-VAR3 W 6 N VALUE ZEROS 
 WS-AVTAL W 6 A 
* 
JOB INPUT TRIN01 
* 
* MOVE SPACE TO UT-ALL 
 IF IN-TYP = '2' 
 WS-NAMN = IN-NAMN 
 END-IF 
 IF IN-AVTAL-TEXT = 'Avtal' 
 WS-AVTAL = IN-AVTAL 
 END-IF 
 IF IN-TYP = '6' 
 WS-VAR1 = IN-PENG2 
 END-IF 
 IF IN-TYP2 = 'A-Porto' 
 WS-VAR2 = IN-PENG3 
 END-IF 
 IF IN-DEBITERAS = 'Debiteras ej' 
 UT-NAMN = WS-NAMN 
 UT-AVTAL = WS-AVTAL 
 UT-PENG2 = WS-VAR1 
 UT-PENG3 = WS-VAR2 
 UT-SUMMA = WS-VAR1 + WS-VAR2 
 PUT TRUT01 FROM TRUT01 
 END-IF

by **HarryBoy** » Wed Mar 13, 2019 7:23 pm

Hi, ok I´ll do. I solved this also by using an array.

Now one thing that bothers me is that two parameters that uses same index for a row, they cannot both be used. It seems only one parameter can be used for one row if the parameters intersect so to speak. Little annoying.

Cheers
Harald

IBM Mainframe Forum

Problem getting data in the outdataset

Problem getting data in the outdataset

Re: Problem getting data in the outdataset

Re: Problem getting data in the outdataset

Re: Problem getting data in the outdataset