ISPF VIEW Error: 'DOWN' is not a valid edit command.
Posted: Fri Dec 16, 2016 4:12 pm
I was trying to 'print' the content of a member of a JCL library where the member has been written to a temporary dataset after executing a preprocessing macro.
The result of this is displayed in VIEW where a CA EJCK (EDCHEK) or 'JCLcheck' is run.
All that works fine.
However I want to issue a DPRT command (set up in 3.9 as PASSTHRU).
The panel attempts to SCROLL down the data by issuing its own commands.
The DOWN PAGE command is generated but gives this interesting message?
Here's the actual PROC section *REXX section, all but the subroutine which should happen at end-of-data...Perhaps someone kind at RTP would write a command to do this and add it to the product?!
The result of this is displayed in VIEW where a CA EJCK (EDCHEK) or 'JCLcheck' is run.
All that works fine.
However I want to issue a DPRT command (set up in 3.9 as PASSTHRU).
The panel attempts to SCROLL down the data by issuing its own commands.
The DOWN PAGE command is generated but gives this interesting message?
ABCD N472730.T105416.RA000.N472730.R0230
Command ===>
****** ***************************** Top of Da
==MSG> CAY6000 ÖÖÖÖÖÖÖÖÖ Target Server MVS3
==MSG> EsssssssssssssssssssssssssssssssssssssN
==MSG> e 'DOWN' is not a valid edit command. e
==MSG> DsssssssssssssssssssssssssssssssssssssM
==MSG> CAY6000 23 STATEMENTS FLAGGED WITH SEV
Command ===>
****** ***************************** Top of Da
==MSG> CAY6000 ÖÖÖÖÖÖÖÖÖ Target Server MVS3
==MSG> EsssssssssssssssssssssssssssssssssssssN
==MSG> e 'DOWN' is not a valid edit command. e
==MSG> DsssssssssssssssssssssssssssssssssssssM
==MSG> CAY6000 23 STATEMENTS FLAGGED WITH SEV
Here's the actual PROC section *REXX section, all but the subroutine which should happen at end-of-data...
*REXX(*,UCMD,ZCMD,ZSHADOW,PRESP,ZERRSM,ZERRLM,DJCKPRT)
cmd = ucmd
pal = POS('075C5C5C5C5C5C015C5C5C5C5C5C5C'X,zdata)
ptd = POS("****** Top of Data *****",zdata)
pbd = POS("****** Bottom of Data *****",zdata)
SELECT
WHEN( cmd="DPRT" ,
& ( pal=1 & ptd>9 ) )THEN DO
QUEUE zdata
djckprt = "YES"
PARSE VALUE "ENTER;DOWN PAGE" WITH presp ";" zcmd
END
WHEN( cmd="DOWN PAGE" & djckprt="YES" )THEN DO
IF( pal=1 & pbd>0 )THEN CALL ENDOFDATA
ELSE NOP
QUEUE zdata
PARSE VALUE "ENTER;DOWN PAGE" WITH presp ";" zcmd
END
OTHERWISE
zcmd = ""
djckprt = "OTHER"
END/*SELECT*/
SIGNAL ENDREXX
/************************** Sub-Routines *****************/
cmd = ucmd
pal = POS('075C5C5C5C5C5C015C5C5C5C5C5C5C'X,zdata)
ptd = POS("****** Top of Data *****",zdata)
pbd = POS("****** Bottom of Data *****",zdata)
SELECT
WHEN( cmd="DPRT" ,
& ( pal=1 & ptd>9 ) )THEN DO
QUEUE zdata
djckprt = "YES"
PARSE VALUE "ENTER;DOWN PAGE" WITH presp ";" zcmd
END
WHEN( cmd="DOWN PAGE" & djckprt="YES" )THEN DO
IF( pal=1 & pbd>0 )THEN CALL ENDOFDATA
ELSE NOP
QUEUE zdata
PARSE VALUE "ENTER;DOWN PAGE" WITH presp ";" zcmd
END
OTHERWISE
zcmd = ""
djckprt = "OTHER"
END/*SELECT*/
SIGNAL ENDREXX
/************************** Sub-Routines *****************/