Nandananilchintala
New User
Joined: 25 Mar 2009 Posts: 19 Location: Hyderabad
|
|
|
|
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 |
|
|