View previous topic :: View next topic
|
Author |
Message |
niks_jude Warnings : 1 Active User
Joined: 01 Dec 2006 Posts: 144 Location: Mumbai
|
|
|
|
Quite embarassing but I am unable to get hold of the syntactical errors at end.
Code: |
/********************************************************************/
/*REXX */
/*PURPOSE: ALLOCATE GDG BASES FOR A LIST PROVIDED -- NIKS..... */
/********************************************************************/
/*** GET THE ARGUMENT NAME **/
PARSE ARG NAME
/*** INITIALIZE EOF **/
EOF = 'NO'
/*** ALLOCATE INPUT DATASET IN OLD DISPOSITION **/
"ALLOC DA(NAME) F(GDGLIST) OLD"
/*** LOOP READING THE INPUT INTO A STACK TILL EOF...TO RETRIEVE ***/
/*** WE GOT TO PULL THE DATA READ FROM THE STACK... ***/
DO WHILE EOF = 'NO'
"EXECIO 1 DISKR GDGLIST"
IF RC = 2 THEN
EOF = 'YES'
ELSE
DO
PARSE PULL LINE
SAY LINE
STRIPLINE = STRIP(LINE,T)
LEN = LENGTH(STRIPLINE)
IF LEN > 35 THEN
SAY 'GDG NAME' STRIPLINE 'IS TOO LONG'
ELSE DO
ADDRESS TSO
"DEFINE GDG (NAME("STRIPLINE") LIMIT(10) EMPTY SCRATCH)"
/* IF RC=0 THEN SAY 'GDG NAM HAS BEEN CREATED' */
END
END
END
/**CLOSE THE DATASET ***/
"EXECIO 0 DISKR GDGLIST (FINIS"
EXIT 0
IKJ56534I STMT 17 - A(N) ELSE STMT WAS FOUND FOR WHICH THERE IS NO CORRESPONDIN
G IF STMT
IKJ56534I STMT 25 - A(N) ELSE STMT WAS FOUND FOR WHICH THERE IS NO CORRESPONDIN
G IF STMT
*** |
|
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
If you open up an edit session using the ISPF Editor for a REXX Profile, it will highlight the specific loops. You have other HILITE options to review the code in different manners. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
did You look at the messages manual or search for IKJ56534I using lookAT
if You had You would have understood why You get the error
I could tell at first glance by looking at the snippet You posted...
and a simple guess about the content of SYSEXEC and SYSPROC
is this the first Rexx You are writing ???
IKJ56534I message is from TSO not REXX
check the REXX user guide ( for the concepts involved in this error ) here
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4C310/1.2.2?SHELF=IKJ4BK80&DT=20010706113306 |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Good catch. I didn't even notice the IKJ* message prefixes. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
I could have told the error right away,
I wanted to make sure that the message related to IKJ56534I contained the proper hint !
and it does indeed |
|
Back to top |
|
|
niks_jude Warnings : 1 Active User
Joined: 01 Dec 2006 Posts: 144 Location: Mumbai
|
|
|
|
Thanks I got it first line should contain REXX. The error I got I thought it was atleast able to take the REXX code. Sorry experts this is actually my first REXX, thanks. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
nothing to be sorry! there is always a first time. |
|
Back to top |
|
|
|