Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Facing a problem related to SYSEXEC while running a macro

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Nandananilchintala

New User


Joined: 25 Mar 2009
Posts: 19
Location: Hyderabad

PostPosted: Mon Mar 30, 2009 11:03 am    Post subject: Facing a problem related to SYSEXEC while running a macro
Reply with quote

Hi,

I am facing the following problem while executing a Macro written by me.
Im trying to read the text at cursor position and then the trying to open a member from a PDS depending oin the contents i read at cursor position.

Below is the code and error im facing. Please help

ERROR:-

Code:
 Abnormal completion of the READ Data Management macro.                         
 IN16608 ,LOGONNL ,C068,D,SYSEXEC ,READ  ,WRNG.LEN.RECORD,0000019E00080D,BPAM. 
***


Code:-
Code:

"ISREDIT MACRO"                               
"ISREDIT (ROW,COL) = CURSOR"                 
"ISREDIT (DATA) = LINE" .ZCSR                 
MEMBER1 = SUBSTR(DATA,COL,8)                 
LEN1 = LENGTH(MEMBER1)                       
MEMBER2 = STRIP(MEMBER1)                     
LEN2 = LENGTH(MEMBER2)                       
VAR4 = SUBSTR(MEMBER2,4,1)                   
VAR7 = SUBSTR(MEMBER2,7,1)                   
IF LEN1 <> LEN2 THEN DO                       
       IF VAR7 = 'M' THEN MODUL = 'PLISQL'   
       ELSE MODUL = 'PROCLIB'                 
    END                                       
SAY MODUL                                     
IF MODUL = 'PLISQL' THEN                     
DO                                           
SAY MODUL                                     
DDN = 'RCBR033.SHIPPED.PLISQL('||MEMBER2||')'
ADDRESS ISPEXEC "BROWSE DATASET('"DDN"')"     
END                                           
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Mon Mar 30, 2009 12:11 pm    Post subject: Reply to: Facing a problem related to SYSEXEC while running
Reply with quote

You already started a similar topic ,
You did not provide the info requested
if/when You will provide what has been asked You might get an answer

as already said the error has nothing to do with the rexx itself
there i something wrong with Your PDS

double posting will not get You better answers
topic is locked
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts exec macro in the end of edit anatol CLIST & REXX 8 Fri Sep 22, 2017 5:10 am
No new posts LMINIT problem - not finding DDNAME Danielle.Filteau CLIST & REXX 7 Tue Sep 19, 2017 9:57 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Question related to Data dictionary f... rexx77 SYNCSORT 3 Thu Aug 31, 2017 7:23 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us