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
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...
*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 *****************/
