Syncsort E15 - Cobol program

Sasi Kiran Patha · Posted: Thu Jul 31, 2008 6:10 pm

Hi,
Im using an existing cobol program for E15 exit.
Im getting sortout file with same no of records
as sortin file, but with data is not found in the
sortout file.

The cobol code is like this:
MOVE RECORD-IN TO COPYBOOK1.
MOVE DATA FROM COPYBOOK1 TO COPYBOOK2.
(after modifying a few data items.)
MOVE COPYBOOK2 to RECORD-OUT.
IF LAST-TIME
move 8 to return-code
else
move 20 to record-out.
MOVE 4 TO SEQ-CHECK
GOBACK

If copybook2 is displayed before check on LAST-TIME
im able to see the data in the spool.

SYSIN of syncsort:
SORT FIELDS=COPY
MODS E15=(YPSURR15,12500,EXIT1535,C)
END

Please suggest me to rectify this.

Regards,
Sasi Kiran Patha.

dbzTHEdinosauer · Posted: Thu Jul 31, 2008 6:52 pm

Sasi Kiran Patha · Posted: Thu Jul 31, 2008 6:57 pm

sorry ,,
it is
MOVE 20 RETURN-CODE.

Sasi Kiran Patha · Posted: Thu Jul 31, 2008 7:02 pm

The following are in linkage section:
(im not aware of their importance)

01 EXIT-STATUS PIC 9(08) COMP.
88 FIRST-TIME VALUE 00.
88 MOST-TIME VALUE 04.
88 LAST-TIME VALUE 08.
SKIP1
01 RECORD-UP.
05 RECORD-IN PIC X(4000).
SKIP1
01 WORK.
05 RECORD-OUT PIC X(4000).
SKIP1
01 IN-BUF.
05 RECORD-BUFFER PIC X(4000).
SKIP1
01 SEQ-CHECK PIC 9(08) COMP.
88 YES-CHECK VALUE 0.
88 NO-CHECK VALUE 4.
01 AREA010 PIC X.
01 AREA020 PIC X.
01 AREA030 PIC X.
EJECT

Sasi Kiran Patha · Posted: Fri Aug 01, 2008 3:50 pm

hi , this is solved.
I got Syncsort manual , and changed the program
to work for variable length records (This includes changes to WORK-OUT and RECORD-UP.

Thank you,
Sasi Kiran Patha.