MVSFORUMS.com

[samsun]

I wrote a JCL to prompt the response to the console.
But something strange happened:
When I submit the job from my own library(ie. SYSPXX.JCL), the result is fine.(ie. TSU worked )
But when I submit the job through other address(ie. OPS, INTRDR), the text that I wnat to display was shifted to the wrong one. As follow:

original message:
EZA0458I Ping V3R2: Pinging host 192.168.6.200. Use ATTN to interrupt.
EZA0463I PING: Ping #1 response took 0.007 seconds. Successes so far 1.
EZA0458I Ping V3R2: Pinging host 192.168.6.201. Use ATTN to interrupt.
EZA0463I PING: Ping #1 response took 0.007 seconds. Successes so far 1.

The right message should be:(from tso SUBMIT)
+EZA0458I Ping V3R2: Pinging host 192.168.6.200.
+EZA0463I PING: Ping #1 response took 0.007 seconds. Successes
+EZA0458I Ping V3R2: Pinging host 192.168.6.201.
+EZA0463I PING: Ping #1 response took 0.007 seconds. Successes

Wrong message:(from INTERNAL READER or OPS )
+Ping V3R2: Pinging host 192.168.6.200. Use ATT
+PING: Ping #1 response took 0.007 seconds. Successes so far 1
+Ping V3R2: Pinging host 192.168.6.201. Use ATT
+PING: Ping #1 response took 0.007 seconds. Successes so far 1

What could be the reason which cause the whole text to be shift?
JES2? MVS? SMS?
(It looks like the MESSAGE 'EZAxxxxI' are to be ignored....)

Thanks~

[kolusu]

samsun,

The Intrdr will add a carriage control character in the first byte which makes the contents to be shifted by 1 byte. So force a RECFM of FB on the intrdr

[samsun]

Hello Kolusu,
I tried to put ur DD card into my JCL but the result was still the same.....
I wonder if the job using user id or STC id has different output format?

Sam

[semigeezer]

This is the probable reason. How did you direct the output to the console (I assume by console you mean your terminal and not the real operator's console). can you post that?

[samsun]

Following is the main JCL:

//SYSP07P JOB (),MSGCLASS=A,MSGLEVEL=(1,1......
//*
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=NULLFILE,DCB=SYSP07.PRINT
//SYSUT2 DD DSN=SYSP07.PRINT,DISP=OLD
/*
//STEP2 EXEC PGM=IKJEFT01,REGION=4096K
//SYSEXEC DD DSN=CAPBO.CLIST,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=SYSP07.PRINT,DISP=MOD
//SYSTSIN DD *
%PINGHSM /*CALL CLIST PGM SIMPLY EXECUTE PING*/
/*
//STEP3 EXEC PGM=DISREPLY
//STEPLIB DD DSN=SYSP07.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=X
//INDATA1 DD DSN=SYSP07.PRINT,DISP=SHR
---------------------------------------------------------------------------

In step3, the DISREPLY is coded by PL/1:

//DISREPLY JOB IMSP,REGION=4096K,MSGCLASS=X,CLASS=A
//STEP EXEC PLIXCL
//SYSPRINT DD SYSOUT=X
//PLI.SYSIN DD *
* PROCESS NEST,GOSTMT,CHARSET(60),XREF,ATTRIBUTES(SHORT);
PLIZZZ: PROCEDURE OPTIONS (MAIN);
DCL (SUBSTR,ONCODE,ONCHAR,ONSOURCE,ONFILE,ONLOC,ONKEY) BUILTIN;
DCL SYSPRINT FILE STREAM;
DCL INDATA1 FILE RECORD INPUT;
DCL INWK1 CHAR(256);
DCL OUTWK CHAR(65);
ON ERROR BEGIN;
PUT SKIP LIST (ONCODE,ONLOC,ONFILE,ONKEY);
GO TO EOJ;
END;
ON ENDFILE (INDATA1) GOTO CLOSEF;
OPEN: OPEN FILE (INDATA1);
READ FILE (INDATA1) INTO (INWK1);
OUTWK = SUBSTR(INWK1,1,47);
DISPLAY(''||OUTWK||'');
READ FILE (INDATA1) INTO (INWK1);
OUTWK = SUBSTR(INWK1,1,61);
DISPLAY(''||OUTWK||'');
READ FILE (INDATA1) INTO (INWK1);
OUTWK = SUBSTR(INWK1,1,47);
DISPLAY(''||OUTWK||'');
READ FILE (INDATA1) INTO (INWK1);
OUTWK = SUBSTR(INWK1,1,61);
DISPLAY(''||OUTWK||'');
CLOSEF: CLOSE FILE (INDATA1);
EOJ: END;
/*
//LKED.SYSPRINT DD SYSOUT=X
//LKED.SYSLMOD DD DSN=SYSP07.LOAD(DISREPLY),DISP=SHR
//*GO.INDATA1 DD DSN=SYSP07.PRINT,DISP=SHR


Thanks~~~~~

[samsun]

Sorry, I forgot to say that I directed the output to the operator's console, not a tso terminal.....