View previous topic :: View next topic
|
Author |
Message |
pingte
Active User
Joined: 03 Dec 2005 Posts: 120 Location: india
|
|
|
|
******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 |
|
|
Devzee
Active Member
Joined: 20 Jan 2007 Posts: 684 Location: Hollywood
|
|
|
|
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 |
|
|
pingte
Active User
Joined: 03 Dec 2005 Posts: 120 Location: india
|
|
|
|
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 |
|
|
Devzee
Active Member
Joined: 20 Jan 2007 Posts: 684 Location: Hollywood
|
|
|
|
Please post your JCL |
|
Back to top |
|
|
IQofaGerbil
Active User
Joined: 05 May 2006 Posts: 183 Location: Scotland
|
|
|
|
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 |
|
|
pingte
Active User
Joined: 03 Dec 2005 Posts: 120 Location: india
|
|
|
|
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 |
|
|
pingte
Active User
Joined: 03 Dec 2005 Posts: 120 Location: india
|
|
|
|
Thanks IQofaGerbil
My problem has been solved! |
|
Back to top |
|
|
|