Problem getting data in the outdataset



Unicenter CA-Easytrieve Plus Report Generator: CA's information retrieval and data management tool

Problem getting data in the outdataset

Postby 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

//******** 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
HarryBoy
 
Posts: 8
Joined: Tue Dec 11, 2018 2:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Problem getting data in the outdataset

Postby 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
HarryBoy
 
Posts: 8
Joined: Tue Dec 11, 2018 2:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Problem getting data in the outdataset

Postby 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:
//******** 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
.... Terry
Terry Heinze
 
Posts: 232
Joined: Wed Dec 04, 2013 11:08 pm
Location: Richfield, MN, USA
Has thanked: 11 times
Been thanked: 11 times

Re: Problem getting data in the outdataset

Postby 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
HarryBoy
 
Posts: 8
Joined: Tue Dec 11, 2018 2:24 pm
Has thanked: 0 time
Been thanked: 0 time


Return to CA-Easytrieve

 


  • Related topics
    Replies
    Views
    Last post