| View previous topic :: View next topic |
| Author |
Message |
skss
Beginner
Joined: 09 Dec 2013
Posts: 12
Topics: 2
|
 Posted: Wed Dec 18, 2013 3:51 pm Post subject: Adding header & trailer to output |
 |
|
Hi,
My requirement is to build a sort card which will do the following this for me
1) Header starting from position 30 with system date starting from position 60
2) Trailer1 notifying the 'end of report'.
3) Trailer2 with a specific text count(text is 'ABND' which has a starting position of 2 in the input file and has a length of 4)
3) Trailer3 notifying the abended(ABND) jobs if any. If none found then report it with text 'NONE'
structure of input file :
| Code: |
Job name
------JOBNAME--JOBID---ACT-STAT-SYID-------CPU-------I/O-STEP-----
1 XXXXXXX J061847 YYYY
<--RC--PGM--------STEP-----PRSTEP---PROC-----COMMENTS
0 PGMSTEP $XXXXXX
ABND SORT
|
Output file :
| Code: |
Header Date
Job name
------JOBNAME--JOBID---ACT-STAT-SYID-------CPU-------I/O-STEP-----
1 XXXXXXX J061847 YYYY
<--RC--PGM--------STEP-----PRSTEP---PROC-----COMMENTS
0 PGMSTEP $XXXXXX
ABND SORT
Trailer
Abend count : 1
Abended Job : XXXXXXX
|
Just to give you a breif info about the input file content:
The input contains the data read from IOF(interface to view job log in my shop)
30 to 40 jobs log will be written into the dataset. So need to check for abends if any.
Appreciate if you could provide me the sort card
_________________
Thanks & Regards,
SKSS |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Wed Dec 18, 2013 4:49 pm Post subject: |
|
|
skss,
why is this posted in the TSO and ISPF forum? I moved it to Utilities forum. what is the feedback on this How to read IOF panel through rexx topic?
You need to understand that TRAILER1/2/3 have a different meaning for DFSORT. I guess you meant you need 3 different lines at the end of the report. Is that right?
What happens if you have more than 1 job that abended ? Do you need to list all the jobs that abended?
what is the LRECL and RECFM of the input file?
Last but not the least run the following job and show me the complete sysout so that we can determine the level of DFSORT your shop is running.
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
//* |
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
skss
Beginner
Joined: 09 Dec 2013
Posts: 12
Topics: 2
|
| Posted: Wed Dec 18, 2013 8:55 pm Post subject: |
|
|
Thanks Kolusu for your response!
For my other topic I am using a batch job which is is fetching me the input file.
The same file I will be using in the sort step once it is built.
Yes you got it right. I need 3 lines of trailer records
Yes I need to list all the jobs that have abended.
I have DFSORT in my shop as I have used DFSORT in my shop before for a rather simple execution.
_________________
Thanks & Regards,
SKSS |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Thu Dec 19, 2013 10:30 am Post subject: |
|
|
skss,
Please read my post once again and answer ALL my questions.
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
skss
Beginner
Joined: 09 Dec 2013
Posts: 12
Topics: 2
|
| Posted: Thu Dec 19, 2013 10:36 am Post subject: |
|
|
Any help?
Awaiting response!
_________________
Thanks & Regards,
SKSS |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Thu Dec 19, 2013 10:40 am Post subject: |
|
|
| skss wrote: | Any help?
Awaiting response! |
If you had answered all my questions then you would have gotten help but you chose NOT to. So good luck
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
skss
Beginner
Joined: 09 Dec 2013
Posts: 12
Topics: 2
|
| Posted: Thu Dec 19, 2013 10:44 am Post subject: |
|
|
I am sorry, I missed your question
Record length is for both input and output file is 133
Record format is FB
Though I know we have DFSORT in our shop but I still ran the setp that you posted and it gave the below output
| Code: |
SYSIN :
OPTION COPY
WER276B SYSDIAG= 6270044, 9709710, 9709710, 3422100
WER164B 6,884K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 440K BYTES USED
WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 80
WER073I SORTIN : DSNAME=N581A5.N581A51.J0033233.D0000101.?
WER110I SORTOUT : RECFM=FB ; LRECL= 80; BLKSIZE= 80
WER074I SORTOUT : DSNAME=N581A5.N581A51.J0033233.D0000104.?
WER410B 5,856K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 324K BYTES USED
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER416B BSAM WAS USED FOR SORTIN
WER416B BSAM WAS USED FOR SORTOUT
WER054I RCD IN 0, OUT 0
WER169I RELEASE 1.4 BATCH 0520 TPF LEVEL 1.0 |
_________________
Thanks & Regards,
SKSS |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Thu Dec 19, 2013 10:52 am Post subject: |
|
|
| skss wrote: | I am sorry, I missed your question
Record length is for both input and output file is 133
Record format is FB
Though I know we have DFSORT in our shop but I still ran the setp that you posted and it gave the below output |
SKSS,
Based on your output , you do NOT have DFSORT at your shop. The WERxxx messages indicates you are using SYNCSORT. It is clearly displayed in the sysout.
I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
skss
Beginner
Joined: 09 Dec 2013
Posts: 12
Topics: 2
|
| Posted: Thu Dec 19, 2013 11:07 am Post subject: |
|
|
Hi Kolusu,
I understand your concern but as an user of these respective products we dont see any significant difference either in syntax or in functionality.
Does this mean I will not be getting any help from this forum for my problem?
_________________
Thanks & Regards,
SKSS |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Thu Dec 19, 2013 11:19 am Post subject: |
|
|
| skss wrote: | Hi Kolusu,
I understand your concern but as an user of these respective products we dont see any significant difference either in syntax or in functionality.
Does this mean I will not be getting any help from this forum for my problem? |
The two products are very similar, but at the function level, DFSORT has many functions Syncsort doesn't have which we feel add a lot of value.
As for the help, as a DFSORT developer, I cannot answer your queries. But if there are other users who have syncsort can answer the question
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Nic Clouston
Advanced
Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
|
| Posted: Thu Dec 19, 2013 11:20 am Post subject: |
|
|
You might get help here from other people who know Syncsort or you may get it on the other forum that you posted on.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL. |
|
| Back to top |
|
|
skss
Beginner
Joined: 09 Dec 2013
Posts: 12
Topics: 2
|
| Posted: Thu Dec 19, 2013 12:10 pm Post subject: |
|
|
is there any other group in this community where I can post my query under this forum?
_________________
Thanks & Regards,
SKSS |
|
| Back to top |
|
|
papadi
Supermod
Joined: 20 Oct 2009
Posts: 594
Topics: 1
|
| Posted: Thu Dec 19, 2013 12:53 pm Post subject: |
|
|
Apologies Kolusu - this your forum, but i must mention that this question has been posted on several forums.
I have deleted the most recent one on one forum but have left the one with multiple replies on another forum.
@skss - if you spent as much time working on the result you need instead of propagating the question looking for someone to do the work for you, you might have it running by now. . .
pd |
|
| Back to top |
|
|
skss
Beginner
Joined: 09 Dec 2013
Posts: 12
Topics: 2
|
| Posted: Thu Dec 19, 2013 1:13 pm Post subject: |
|
|
Appologies for any inconvinience caused!
I hope you all understand that, I have nothing to do whether my shop users DFSORT or SYNCSORT.
As far as working on its resolution is concerned, I have been trying to get a resolution from the past 2 days and as I did not reach to the end of it, I had to reach out to the experts.
I usually follow the practice of trying on my own first and if I dont see any resolution then only I try to reach out to the experts.
I had no intention of propagating this post, but as I was not getting any response I choose to do so
_________________
Thanks & Regards,
SKSS |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Fri Dec 20, 2013 1:24 pm Post subject: |
|
|
| skss wrote: | Appologies for any inconvinience caused!
I hope you all understand that, I have nothing to do whether my shop users DFSORT or SYNCSORT.
As far as working on its resolution is concerned, [b]I have been trying to get a resolution from the past 2 days and as I did not reach to the end of it, I had to reach out to the experts.
I usually follow the practice of trying on my own first and if I dont see any resolution then only I try to reach out to the experts.
I had no intention of propagating this post, but as I was not getting any response I choose to do so |
Why are you stuck on having solution in SORT? How much time does it take for you to write a simple COBOL program for this? Hardly an hour tops? Read the file and store the jobnames in an array in working storage and increment the count. Is it that hard?
on the other hand you have been wasting your time for the past 2 days posting across multiple helpboards and you got nowhere.
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
