Page 1 of 1

ISPF VIEW Error: 'DOWN' is not a valid edit command.

PostPosted: Fri Dec 16, 2016 4:12 pm
by Steve Coalbran
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?
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

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 *****************/
 
Perhaps someone kind at RTP would write a command to do this and add it to the product?!

Re: ISPF VIEW Error: 'DOWN' is not a valid edit command.

PostPosted: Fri Dec 16, 2016 4:18 pm
by Steve Coalbran
This is a trapped actual screen (box chars and all)...
Capture.GIF

Re: ISPF VIEW Error: 'DOWN' is not a valid edit command.

PostPosted: Fri Dec 16, 2016 8:18 pm
by Steve Coalbran
The part I missed was that the panel (after that REXX section) sets .RESP = &PRESP if &presp is non-blank.