Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Easytrieve Question (virtual File)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
pingte

Active User


Joined: 03 Dec 2005
Posts: 120
Location: india

PostPosted: Mon Jul 16, 2007 10:02 am    Post subject: Easytrieve Question (virtual File)
Reply with quote

******please look at the code before answering the question*****
Code:

FILE DISKIN1                     
 IN-USERID           19 8 A       
 IN-INVALID-COUNT    49 6 P 0     
 IN-INVALID-ARREARS  55 6 P 2     
 IN-PCID            106 8 A       
 IN-SEQ             114 3 N       
 IN-CNT07           117 3 P 0     
 IN-AMT07           120 6 P 2     
 IN-CNTDT           126 3 P 0     
 IN-AMTDT           129 6 P 2     
 IN-COMPANY         199 2 A       
 IN-LOCATION        201 4 A       
 IN-NAME            205 30 A     
 IN-ARREARS         625 6 P 2     
 IN-REVCL           721 2 A       
*
FILE DISKIN2                   
 IN-471B-DATES        6 27 A   
 IN-471B-FROM        11  8 A   
 IN-471B-TO          25  8 A   

FILE DISKOUT1                 
 OUT-COMPANY      01 2 A     
 OUT-LOCATION     03 4 A     
 OUT-USERID       07 8 A     
 OUT-TALLY        15 5 N 0   
 OUT-ARREARS      20 10 N 2   
 OUT-PYMT-COUNT   30 5 N 0   
 OUT-PYMT-ARREARS 35 10 N 2   
 OUT-DT-COUNT     45 5 N 0   
 OUT-DT-ARREARS   50 10 N 2   
 OUT-INVA-COUNT   60 5 N 0   
 OUT-INVA-ARREARS 65 10 N 2   
 OUT-FROM-DATE    75  8 A     
 OUT-TO-DATE      83  8 A     
 OUT-PGM          91  4 A     

FILE XFILE FB (94 27918) VIRTUAL RETAIN                         
 XFILE-COMPANY          01  2  A                                 
 XFILE-LOCATION         03  4  A                                 
 XFILE-USERID           07  8  A                                 
 XFILE-TALLY            15 10  P  0                             
 XFILE-ARREARS          25 10  P  2                             
 XFILE-INVALID-ARREARS  35 10  P  2 MASK('ZZZZZZZZZZZZZZZZ.ZZ-')
 XFILE-INVALID-COUNT    45 10  P  0                             
 XFILE-PAYMENT-COUNT    55 10  P  0                             
 XFILE-PAYMENT-AMT      65 10  P  2 MASK('ZZZZZZZZZZZZZZZZ.ZZ-')
 XFILE-DT-COUNT         75 10  P  0                             
 XFILE-DT-AMT           85 10  P  2 MASK('ZZZZZZZZZZZZZZZZ.ZZ-')

FILE VIRTFILE FB (14 27986) VIRTUAL RETAIN   
 VIR-COMPANY           1  2  A               
 VIR-LOCATION          3  4  A               
 VIR-USERID            7  8  A               

FILE V1FILE FB (92 27968) VIRTUAL RETAIN         
 V1-USERID            1 8 A                     
 V1-INVALID-COUNT     9 6 P 0                   
 V1-INVALID-ARREARS  15 6 P 2                   
 V1-PCID             21 8 A                     
 V1-SEQ              29 3 N                     
 V1-CNT07            32 3 P 0                   
 V1-AMT07            35 6 P 2                   
 V1-COMPANY          41 2 A                     
 V1-LOCATION         43 4 A                     
 V1-NAME             47 30 A                     
 V1-ARREARS          77 6 P 2                   
 V1-REVCL            83 2 A                     
 V1-CNTDT            84 3 P 0                   
 V1-AMTDT            87 6 P 2                   


FILE IN1SORT VB (1180 27998) VIRTUAL RETAIN                           
  COPY DISKIN1                                                         
                                                                       
                                                                       
FILE PRINTER0 FB (201 201) PRINTER                                     
FILE PRINTER1 FB (140 140) PRINTER                                     
FILE PRINTER2 FB (133 133) PRINTER                                     
*                                                                     
**********************************************************************
* WORKING STORAGE HERE                                               
**********************************************************************
                                                                     
WS-CTR             W 9 N                                             
WS-471B-DATES      W 27 A                                             
WS-471B-FROM       W  8 A                                             
WS-471B-TO         W  8 A                                             
WS-DT-COUNT        W  5 N 0                                           
WS-PYMT-COUNT      W  5 N 0                                           
WS-INVA-COUNT      W  5 N 0                                           
WS-TALLY           W  5 N 0                                           
WS-GOOD-PCNT       W  5 N 4                                           
WS-ARREARS         W  6 P 2                                           
WS-INVALID-ARREARS W  6 P 2 MASK('ZZZZZZZZZ.ZZ-')                     
WS-PAYMENT-AMT     W  6 P 2 MASK('ZZZZZZZZZ.ZZ-')                     
WS-DT-AMT          W  6 P 2 MASK('ZZZZZZZZZ.ZZ-')                     
                                           

JOB INPUT DISKIN2                                                     
WS-471B-DATES = IN-471B-DATES                                         
WS-471B-FROM  = IN-471B-FROM                                           
WS-471B-TO    = IN-471B-TO                                             


JOB INPUT DISKIN1                                           
                                                             
*                                                           
PRINT DUMMY-RPT                                             
*                                                           
   
REPORT DUMMY-RPT           +                         
       SKIP 1            +                           
       SPACE 1           +                           
       LINESIZE 200      +                           
       PRINTER PRINTER0  +                           
       SUMMARY SUMFILE XFILE SUMCTL DTLCOPY           
       SEQUENCE IN-COMPANY IN-LOCATION IN-USERID     
       CONTROL FINAL NOPRINT +                       
               IN-COMPANY     NOPRINT +               
               IN-LOCATION    NOPRINT +               
               IN-USERID      NOPRINT                 
HEADING IN-COMPANY         (' ')                     
HEADING IN-LOCATION        (' ')                     
HEADING IN-USERID          (' ')                     
HEADING IN-ARREARS         (' ')                     
HEADING IN-INVALID-ARREARS (' ')                     
HEADING IN-INVALID-COUNT   (' ')       
HEADING IN-CNT07           (' ')       
HEADING IN-AMT07           (' ')       
HEADING IN-CNTDT           (' ')       
HEADING IN-AMTDT           (' ')       
*                                       
LINE 01 IN-COMPANY  +                   
        IN-LOCATION +                   
        IN-USERID  +                   
        IN-ARREARS +                   
        IN-INVALID-ARREARS +           
        IN-INVALID-COUNT +             
        IN-CNT07 +                     
        IN-AMT07 +                     
        IN-CNTDT +                     
        IN-AMTDT                       
*                                       

JOB INPUT XFILE                                             
                                                           
WS-DT-COUNT   = XFILE-DT-COUNT 
DISPLAY 'WS-DT-COUNT' WS-DT-COUNT


I am new to eastrieve. I am unable to understand how data is populated into XFILE in the JOB INPUT XFILE statement.
Back to top
View user's profile Send private message

Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Mon Jul 16, 2007 10:24 am    Post subject:
Reply with quote

Quote:
how data is populated into XFILE in the JOB INPUT XFILE statement.

JOB INPUT file name - This is reading input file sequentially automatically.
Back to top
View user's profile Send private message
pingte

Active User


Joined: 03 Dec 2005
Posts: 120
Location: india

PostPosted: Mon Jul 16, 2007 10:29 am    Post subject:
Reply with quote

Thanks a lot

But What i really need to understand is ...
there is no statement as sort for XFILE.. or copying data from another file to XFILE....
Then where is XFILE getting the data from????...

It is a virtual file.. so it is not mentioned in JCl also...

I hope i am now clear with my problem...
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Mon Jul 16, 2007 12:53 pm    Post subject:
Reply with quote

Please post your JCL
Back to top
View user's profile Send private message
IQofaGerbil

Active User


Joined: 05 May 2006
Posts: 183
Location: Scotland

PostPosted: Mon Jul 16, 2007 12:59 pm    Post subject: Re: Easytrieve Doubt (virtual File)
Reply with quote

It is all done by Eastrieve in the SUMMARY part of the code ie

Code:

SUMMARY SUMFILE XFILE


this is where the file is populated/ordered
Try looking at your manual.
Back to top
View user's profile Send private message
pingte

Active User


Joined: 03 Dec 2005
Posts: 120
Location: india

PostPosted: Mon Jul 16, 2007 1:00 pm    Post subject:
Reply with quote

the jcl is below
Code:

//STEP03   EXEC EZTPLUS                                                 
//EZTP.EZTVFM  DD  SPACE=(8192,(10000,10000))                           
//DISKIN1  DD DSN=DIS.DIDA1128.ORDJRNL.OKCR.WKY.BCKUP(+0),DISP=SHR     
//DISKIN2  DD DSN=DIS.DI18471A.DISKIO0.Z123.DATEFILE,DISP=SHR       
//DISKOUT1 DD DSN=DIST.U801378.OPDIDL9X.Z123.TEST.CHG1,             
//            UNIT=DISYS,                                               
//            DISP=(OLD,CATLG,DELETE),                                   
//            LRECL=94,                                                 
//            SPACE=(94,(1,1),RLSE)                                     
//PRINTER0 DD DUMMY                                                     
//PRINTER1 DD DSN=DIST.Y.Z123.CHG,                             
//            UNIT=DISYS,                                               
//            DISP=(OLD,CATLG,DELETE),                                   
//            LRECL=94,                                                 
//            SPACE=(94,(1,1),RLSE)                                     
//PRINTER2 DD DUMMY                                                     
//SYSIN    DD DSN=DIST.SOURCE(Z123),DISP=SHR,SUBSYS=LAM             
/*           
                                                           
Back to top
View user's profile Send private message
pingte

Active User


Joined: 03 Dec 2005
Posts: 120
Location: india

PostPosted: Mon Jul 16, 2007 4:02 pm    Post subject:
Reply with quote

Thanks IQofaGerbil
My problem has been solved! icon_biggrin.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts question about dfsms management clas... Hervey Martinez IBM Tools 0 Tue Oct 10, 2017 6:19 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us