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



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

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

Postby Steve Coalbran » 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?
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?!
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

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

Postby Steve Coalbran » Fri Dec 16, 2016 4:18 pm

This is a trapped actual screen (box chars and all)...
Capture.GIF
You do not have the required permissions to view the files attached to this post.
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

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

Postby Steve Coalbran » Fri Dec 16, 2016 8:18 pm

The part I missed was that the panel (after that REXX section) sets .RESP = &PRESP if &presp is non-blank.
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post