Sasi Kiran Patha Warnings : 2 New User
Joined: 19 Nov 2006 Posts: 73 Location: Hyederabad
|
|
|
|
hi,
i have a COBOL PGM which is present as EXIT routine in SYSIN of
PGM=SORT step of a JCL.
I need to test the program in XP. Im able to trap the program in XP using
batch profile.The SORTIN file has data but program is not getting
any data as input in Linkage section .
SYSIN data :
( TSECRAG is the program name. )
MODS E15=(TSECRAG,15000,EXITC,C)
SORT FIELDS=(11,3,PD,A, * RC-PARTICIPATION-POOL-NUM
67,1,ZD,A, * RC-ADJUSTABLE-RATE-IND
231,1,ZD,A, * RB-OFF-REP-TYPE-AGGR-SW
232,1,ZD,A, * RC-BUSINESS-UNIT-AGGR-SW
233,1,ZD,A, * RC-ADJ-RATE-INDEX-AGGR-SW
234,1,ZD,A, * RC-ADJ-RATE-TIME-F-AGGR-SW
235,1,ZD,A, * RC-MIN-CONTRACT-RATE-AGGR-SW
236,1,ZD,A, * RC-MAX-CONTRACT-RT-AGGR-SW
237,1,ZD,A, * RC-MAX-INCR-ADJ-PER-AGGR-SW
238,1,ZD,A, * RC-DELQ-STAT-AGGR-SW
239,1,ZD,A, * RC-PROD-TYP-AGGR-SW
240,2,ZD,A, * RC-RATE-ADJ-DATE-AGGR-SW
242,2,ZD,A), * RC-MAT-DT-AGGR-SW
EQUALS
RECORD TYPE=VB,LENGTH=(2004,245)
DEBUG ABEND
Please suggest. |
|