View previous topic :: View next topic
|
Author |
Message |
sureshbabuamara
New User
Joined: 20 Sep 2007 Posts: 16 Location: India
|
|
|
|
Hi,
Using a REXX program I am trying to invoke a SKEL, the problem here is only some part of the SKEL copying into the output file but not the entire SKEL.
Code: |
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
'ISPEXEC FTCLOSE'
'ISPEXEC FTOPEN'
'ISPEXEC FTINCL 'JOBNAME ----> "ISPEXEC FTINCL JOBXXXXX"
'ISPEXEC FTINCL INTRDR'
'ISPEXEC FTCLOSE'
Below is the TRACED code
669 *-* 'ISPEXEC FTOPEN'
>L> "ISPEXEC FTOPEN"
670 *-* 'ISPEXEC FTINCL 'JOBNAME
>L> "ISPEXEC FTINCL "
>V> "JOBXXXXX"
>O> "ISPEXEC FTINCL JOBXXXXX"
+++ RC(20) +++
671 *-* 'ISPEXEC FTINCL INTRDR'
>L> "ISPEXEC FTINCL INTRDR"
672 *-* 'ISPEXEC FTCLOSE'
>L> "ISPEXEC FTCLOSE" |
RC(20) is "Severe error"
JOBXXXXX contains 265 rows but only 30 rows are copying into the output file and INTRDR contains 15 rows, these 15 rows are properly appending to the above 30 rows.
Expected rows are 265 + 15 = 280, but actual output file has 30 + 15 = 45.
Can any one tell how can I over come this problem. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Try to display ZERRSM & ZERRLM to find out the actual problem.
O. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
maybe the 31st row has something wrong in it |
|
Back to top |
|
|
sureshbabuamara
New User
Joined: 20 Sep 2007 Posts: 16 Location: India
|
|
|
|
Thank you O and enrico sorichetti.
By using ZERRSM & ZERRLM I found out the problem is with the "<" symbol present in the line number 30, so I have removed the "<" symbol and ran the program again, this time error is showing at line 34.
I cant remove these comments in the JCL because these are exisiting JCLS.
Code: |
000028 // DISP=SHR
000029 // DD DSN=DB2LIBC.DSNLOAD,
000030 // DISP=SHR
000031 //SYSTSIN DD DSN=ENDEVOR.PR.PRM(JOBXXXM1), ==DSN DB2 RUN PARM
000032 // DISP=SHR
000033 //INCTRLF DD DUMMY
000034 //INPARM DD DSN=ENDEVOR.PR.PRM(JOBXXXM1), <==PARAMETER FILE
000035 // DISP=SHR
000036 //OUTREP DD DSN=JOBXXXM1.&RUN..INPUT.REPT(+1),
000037 // DISP=(,CATLG,DELETE), ==>TO PRINTEOS |
Can any one help me how to over come this problem |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
You can use any character in an ISPF skeleton. Simply read the fine manual.
O. |
|
Back to top |
|
|
sureshbabuamara
New User
Joined: 20 Sep 2007 Posts: 16 Location: India
|
|
|
|
Hi O,
I am not using "<" or ">" as an Comparison Operators in my JCL, In the exisitng system while writing a comment in JCL for easy understanding, all the Input file comments will start "<==" for output file with "==>".
In the previous example(post) for record 34, the error messages are:
ZERRLM : "Invalid cond. sub. string, JOBXXXM1 record-34"
ZERRSM : "Substitution error "
My understanding:
I think While loading the Skel, these comments("<==") are treating as an Comparison operator, so the error messages is Substitution error(Condtional operation).
If you don't mind can you please give me the exact URL, which you have mentioned above.
currently I am referring the below link:
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea1b640/17.1.4.2?SHELF=&DT=20000718114500 |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
Back to top |
|
|
sureshbabuamara
New User
Joined: 20 Sep 2007 Posts: 16 Location: India
|
|
|
|
Thank you enrico sorichetti.
By using )DEFAULT statment now entire JCL is getting copied to my output file.
Code: |
/*ROUTE PRINT LOCAL
DEFAULT )&?!$¢@ ---- replaced <,|,> with $,¢,@
//SET RUN=PROD,
|
|
|
Back to top |
|
|
|