| View previous topic :: View next topic |
| Author |
Message |
tvssv
Beginner
Joined: 11 Mar 2009
Posts: 58
Topics: 25
|
 Posted: Thu Aug 22, 2019 4:20 am Post subject: PL/1 Help. |
 |
|
I have coded the below code.
| Code: |
IF SUBSTR(INREC.JOB,1,3) = 'ABA' THEN
H_REC2.SYSTEM = 'ABACUS';
ELSE
DO;
PUT SKIP LIST ('***** SID501 ABEND ******');
PUT SKIP LIST ('***** THE FIRST JOB SHOULD BE ABACUS ******');
PUT SKIP LIST ('***** JOB RECEIVED IS : ',INREC.JOB,'*****');
PUT SKIP LIST ('***** DATE IS : ',INREC.DATE,'*****');
SIGNAL ERROR;
END;
|
I am getting output as below
| Code: |
********************************* TOP OF DATA *************************************************************************************
***** SID501 ABEND ******
***** THE FIRST JOB SHOULD BE ABACUS ******
***** JOB RECEIVED IS : SID024A *****
ERROR condition was raised
Traceback of user routines:
Compile Unit Entry Statement CU offset Entry offset Address
SID501 173 +00000A5A +00000A5A 31701122
CEE3195W The SNAP dump file could not be opened.
IBM0280S The ERROR condition was raised by a SIGNAL statement.
From entry point SID501 at statement 173 at compile unit offset +00000A5A at entry offset +00000A5A at address 31701122.
***** DATE IS : 12AUG19 *****
******************************** BOTTOM OF DATA ***********************************************************************************
|
I need to get the output as below
| Code: |
***** SID501 ABEND ******
***** THE FIRST JOB SHOULD BE ABACUS ******
***** JOB RECEIVED IS : SID024A *****
***** DATE IS : 12AUG19 *****
ERROR condition was raised
Traceback of user routines:
Compile Unit Entry Statement CU offset Entry offset Address
SID501 173 +00000A5A +00000A5A 31701122
CEE3195W The SNAP dump file could not be opened.
IBM0280S The ERROR condition was raised by a SIGNAL statement.
From entry point SID501 at statement 173 at compile unit offset +00000A5A at entry offset +00000A5A at address 31701122.
|
I tried with different option of PUT SKIP combination.Did not work. Also how to reduce the space between
| Code: |
***** JOB RECEIVED IS : SID024A *****
|
Please advise.
Thanks
_________________
Thanks
TVSSV |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Thu Aug 22, 2019 10:40 am Post subject: |
|
|
tvssv,
Use meaningful topics (don't use the language/forum name/PGM name for the topic). Use a descriptive Title to explain your problem.
I am not really sure as to what the problem is. Is the date not being displayed? Or is the question of simply removing the spaces in between?
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
t-bonham@scc.net
Supermod
Joined: 18 Oct 2012
Posts: 30
Topics: 0
Location: Minneapolis, MN
|
| Posted: Fri Sep 20, 2019 3:23 pm Post subject: |
|
|
I once spent a lot on time on a similar problem. Eventually I discovered it was just 133-character lines being wrapped around when displayed.
Increasing the Record length on the output file solved this. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
