|
View previous topic :: View next topic
|
| Author |
Message |
nitin_agr
New User
Joined: 06 Sep 2005
Posts: 28
Location: Minneapolis US
|
|
|
|
Hi Frndz;
I have a differnet kind of question but that was asked in an interview, please tell me the answer if anyone have any idea.
| Quote: |
| How can the S0C7 abend be generated/created using any JCL utility only? |
I was asked not to use any COBOL module to generate this abend and only to use any JCL Utility to generate.
Thanks |
|
| Back to top |
|
 |
khamarutheen
Active Member
Joined: 23 Aug 2005
Posts: 677
Location: NJ
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Not sure why anyone intentionally wants to force an S0C7, but here's a simple DFSORT job that will do it by summing invalid PD values:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC
CDE
//SORTOUT DD DUMMY
//SYSIN DD *
SORT FIELDS=(5,1,CH,A)
SUM FIELDS=(1,3,PD)
/*
|
|
|
| Back to top |
|
|
|
|
