Multi data-set editor

[BrembM3]

I'm modifying a Rexx program that processes a multi dataset editor - after logic to verify DS and parsing the DS, I get the DCB information of the DS before actually bringing up the dataset into an Edit session.
This is the information displayed:-
Return Code
SysDSNAME
SysUNIT
SysDSORG
SysRECFM
SysLRECL
SysBLKSIZE
SysKEYLEN
SysALLOC
SysUSED
SysPRIMARY
SysSECONDS
SysUNITS
SysEXTENTS
SysCREATE
SysREFDATE
SysEXDATE
SysPASSWORD
SysRACFA
SysUPDATED
SysTRKSCYL
SysBLKSTRK
SysADIRBLK
***
How can I get rid of this? It does disappear after hitting 'Enter'..
Thanks in advance...

 

[KiwiREXXDude]

If you look in your REXX there should be a 'SAY' for each of these attributes, either that or it is calling a REXX (or CList) function which is doing this 'SAY' somewhere else.

The LISTDSI function does not automatically display these variables, just sets values. I suggest you do a find on SysPASSWORD in your REXX and if that doesn't work, this information is being displayed from another REXX.

 

[BrembM3]

I could nor find any 'SAY's from the original Rexx, nor the others - I did not this statement:-
PARSE VALUE DSNINFO(THISDSN) WITH RC INFO
Is this doing it? - not sure why they did this originally, but I do need to get rid of the displays.
Thanx...

 

[BrembM3]

I could nor find any 'SAY's from the original Rexx, nor the others - I did find this statement:-
PARSE VALUE DSNINFO(THISDSN) WITH RC INFO
Is this doing it? - not sure why they did this originally, but I do need to get rid of the displays.
Thanx...

 

[Tzu]

Hi BrembM3,

The DSNINFO does not send any display by itself, so you should have something which does it.

If you want us to have a look just poste the complete code.

Regards,

Tzu.

 

[BrembM3]

Here's the code:-
*/
SEL_EDBR: PROCEDURE
ARG FUNCTION THISDSN SELMEM

'VGET ZPREFIX'
IF LEFT(THISDSN,1) ¬= "'" THEN
THISDSN = "'"ZPREFIX"."THISDSN"'"
PARSE VALUE DSNINFO(THISDSN) WITH RC INFO
IF RC ¬= 0 THEN DO
PARSE VAR INFO . . ZERRSM
IF ZERRSM = 'LOCATE FOR DATASET FAILED' THEN
ZERRSM = 'LOCATE FAILED'
ZERRALRM = 'YES'
ZERRLM = 'ERROR OBTAINING DSNINFO FOR' THISDSN
'SETMSG MSG(EOPM040A)'
END

 

[rexxhead]

DSNINFO is an external subroutine. This may be doing SAYs or WRITEs.



Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[BrembM3]

Frank - thank you - that was it - one of the guys had the diplays in for a problem.
Thanks again...