MVSFORUMS.com

[mahesh_chv]

Input file is a VB file with record length of 32756.
below is the rough layout of the input file ( as the record length is 32756 i am not mentioning the unwanted fields )

<time-stamp> <program-name> <task-no> <cics-region> <identifier> <copybook> <cust-no> <acct-no>
2007-10-17 05:02:48:XXX ABCDE101 0005346 CRG2A5 INBOUND XYZ12345 123456789 8012345
2007-10-17 05:02:48:XXX ABCDE101 0005346 CRG2A5 XXXXXXX XYZ12345 123456789 8012345
2007-10-17 05:02:48:XXX ABCDE101 0005346 CRG2A5 XXXXXXX XYZ12345 123456789 8012345
2007-10-17 05:02:48:XXX ABCDE101 0005346 CRG2A5 OUTBOUND XYZ12345 123456789 8012346
2007-10-17 05:02:48:XXX ABCDE101 0005346 CRG2A5 XXXXXXXX XYZ12345 123456789 8012346
2007-10-17 05:02:48:XXX ABCDE101 0005346 CRG2A5 END TRAN XYZ12345
2007-10-17 05:02:48:XXX ABCDE101 0005347 CRG2A5 INBOUND XYZ12348 123456780 8012344
2007-10-17 05:02:48:XXX ABCDE101 0005347 CRG2A5 XXXXXXXX XYZ12348 123456780 8012344
2007-10-17 05:02:48:XXX ABCDE101 0005347 CRG2A5 OUTBOUND XYZ12348 123456780 8012344
2007-10-17 05:02:48:XXX ABCDE101 0005347 CRG2A5 XXXXXXXX XYZ12348 123456780 8012344
2007-10-17 05:02:48:XXX ABCDE101 0005347 CRG2A5 END TRAN XYZ12348 123456780 8012344


desired output :

<task-no> <identifier> <copybook> <time-stamp> <cust-no> <acct-no>
0005346 INBOUND XYZ12345 2007-10-17 05:02:48:XXX 123456789 8012345
0005346 OUTBOUND XYZ12345 2007-10-17 05:02:48:XXX 123456789 8012345
END TRAN XYZ12345 2007-10-17 05:02:48:XXX
0005347 INBOUND XYZ12348 2007-10-17 05:02:48:XXX 123456780 8012344
0005347 OUTBOUND XYZ12348 2007-10-17 05:02:48:XXX 123456780 8012344
END TRAN XYZ12348 2007-10-17 05:02:48:XXX


only the INBOUND , OUTBOUND , END TRAN records need to be extracted ...
when ever there is 'END TRAN' in the identifier field the <task-no> needs to be supressed
how to achieve the desired output using the syncsort??
do we have ' if then ' option in syncsort? if not is there any alternative for the 'if then ' ?


currently my sortcard (but it is not suppressing the <task-no>)

//SYSIN DD *
INCLUDE COND=(322,7,CH,EQ,C'INBOUND',
OR,322,8,CH,EQ,C'OUTBOUND',
OR,322,8,CH,EQ,C'END TRAN')
SORT FIELDS=(210,7,CH,A,5,24,CH,A)
/*

[mahesh_chv]

oops.... please change it to courier new ( font size 10) before reading.

[vkphani]

Mahesh,
Try this:

[mahesh_chv]

let me try that phani....will let you know the result

Thanks,
Mahesh

[mahesh_chv]

phani,

I have to suppress the <task-no> field in my output file....pls look at my desired output ...

let me post my sort card

SYSIN DD *
INCLUDE COND=(322,7,CH,EQ,C'INBOUND',
OR,322,8,CH,EQ,C'OUTBOUND',
OR,322,8,CH,EQ,C'END TRAN')
SORT FIELDS=(210,7,CH,A,5,24,CH,A)

OUTREC FIELDS=(1:1,4,5:210,7,13:322,8,22:331,8,31:5,23,55:341,21)
/*

currently it doesnt suppress the <task-no>
task-no field is in the 210 position of the the input file (with 7 characters in size )

thanks,
mahesh

[krisprems]

mahesh_chv
Consider this sample SORT JOB and build yours as per your requirement

[vkphani]

Mahesh,

The above given solution works but you need to change the positions given in INREC fields as per ypur input file fields.

[mahesh_chv]

Phani,

Thanks for the solution... As I am not in office i couldnt test it.
I will test it tomorrow and will let you know the result.

and what about my outrec??
OUTREC FIELDS=(1:1,4,5:210,7,13:322,8,22:331,8,31:5,23,55:341,21)

I need to retain this...

thanks,
Mahesh

[mahesh_chv]

sorry...u have replaced that with inrec right??

[mahesh_chv]

I got solution to my problem
Thanks everyone !!