VBA file and Syncsort and using SEQNUM to get desired output
Posted: Fri Sep 26, 2014 3:30 pm
I have a file like this:
Need an output like this:
Used this SORT card:
But the output is coming like:
Can someone please guide.
LRECL of inpunt=137, RECFM=VBA.
Code: Select all
BETA 92 V4R5 - JOB CONTROL REPORT UTILITY
PROGRAM B92BFJBR (NONE ) STARTED.
REPORT
SDATE(22.09.2014)
STIME(10:00:00)
PDATE(22.09.2014)
PTIME(11:30:00)
JOBNAME(S%BB*)
QUEUE(ERROR)
BETA 92 V4R5 - JOB CONTROL REPORT UTILITY
JOBNAME JES-ID SUB DATE SUB TIME STA DATE STA TIME END DATE END TIME
-------- -------- ---------- -------- ---------- -------- ---------- -------- --
SDBB57L JOB57145 22.09.2014 10:01:44 22.09.2014 10:01:45 22.09.2014 10:02:25 I
================================================================================
SDBBSIG1 JOB57230 22.09.2014 10:02:12 22.09.2014 10:02:16 22.09.2014 10:02:18 I
================================================================================
SDBBSIG JOB57411 22.09.2014 10:03:05 22.09.2014 10:03:09 22.09.2014 10:03:10 I
================================================================================
SDBBM585 JOB57426 22.09.2014 10:03:13 22.09.2014 10:03:14 22.09.2014 10:03:15 I
================================================================================
SDBBM584 JOB57427 22.09.2014 10:03:13 22.09.2014 10:03:14 22.09.2014 10:03:15 I
================================================================================
SDBBM583 JOB57428 22.09.2014 10:03:13 22.09.2014 10:03:14 22.09.2014 10:03:15 I
================================================================================
SDBBM582 JOB57429 22.09.2014 10:03:13 22.09.2014 10:03:14 22.09.2014 10:03:15 I
================================================================================
SDBB703S JOB59658 22.09.2014 10:42:37 22.09.2014 11:17:18 22.09.2014 11:17:18 I
BETA 92 V4R5 - JOB CONTROL REPORT UTILITY
JOBNAME JES-ID SUB DATE SUB TIME STA DATE STA TIME END DATE END TIME
-------- -------- ---------- -------- ---------- -------- ---------- -------- --
SDBBM324 JOB61443 22.09.2014 11:26:38 22.09.2014 11:27:40 22.09.2014 11:27:43 I
================================================================================
SDBB57L JOB61703 22.09.2014 11:28:36 22.09.2014 11:28:51 22.09.2014 11:29:53 I
================================================================================
SDBB9XX JOB61963 22.09.2014 11:29:57 22.09.2014 11:32:21 22.09.2014 11:32:35 I
================================================================================
SDBBSIG1 JOB61964 22.09.2014 11:29:57 22.09.2014 11:32:20 22.09.2014 11:32:28 I
================================================================================
30 JOB(S) MATCHED SELECTION CRITERIA.
PROGRAM B92BFJBR (NONE ) ENDED WITH RC(0).
Code: Select all
********************************* Top of Data **********************************
JOBNAME JES-ID SUB DATE SUB TIME STA DATE STA TIME END DATE END TIME
-------- -------- ---------- -------- ---------- -------- ---------- -------- --
SDBB6806 JOB59656 22.09.2014 10:42:36 22.09.2014 11:16:51 22.09.2014 11:17:12 I
================================================================================
SDBB703S JOB59658 22.09.2014 10:42:37 22.09.2014 11:17:18 22.09.2014 11:17:18 I
******************************** Bottom of Data ********************************
Code: Select all
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(6,1,CH,EQ,C'S',AND,95,2,CH,NE,C'CC'),
OVERLAY=(5:C'01',7:5,133)),
IFTHEN=(WHEN=(6,8,CH,EQ,C'--------'),
OVERLAY=(5:SEQNUM,2,ZD,7:5,133)),
IFTHEN=(WHEN=(6,3,CH,EQ,C'JOB'),
OVERLAY=(5:SEQNUM,2,ZD,7:5,133))
OUTFIL INCLUDE=(5,2,CH,EQ,C'01')
OUTREC FIELDS=(1,4,5:7)
Code: Select all
********************************* Top of Data **********************************
1OBNAME JES-ID SUB DATE SUB TIME STA DATE STA TIME END DATE END TIME
1------- -------- ---------- -------- ---------- -------- ---------- -------- --
1DBB6806 JOB59656 22.09.2014 10:42:36 22.09.2014 11:16:51 22.09.2014 11:17:12 I
1DBB703S JOB59658 22.09.2014 10:42:37 22.09.2014 11:17:18 22.09.2014 11:17:18 I
******************************** Bottom of Data ********************************
LRECL of inpunt=137, RECFM=VBA.