bhim_s
New User
.jpg)
Joined: 19 Sep 2006
Posts: 46
Location: Australia
|
|
|
|
Hey Guys, Below is my test program it's working fine
| Code: |
TEST03: PROC OPTIONS(MAIN) REORDER;
/**/
DCL ( SUBSTR,
DATE,
PLIDUMP,
TIME) BUILTIN;
DCL SYSPRINT FILE OUTPUT STREAM PRINT;
DCL XDATE EXT ENTRY OPTIONS(ASM RETCODE INTER);
/**/
DCL BLKIN FILE INPUT RECORD ENV(FB RECSIZE(80) TOTAL);
DCL BLKOT FILE OUTPUT RECORD ENV(FB RECSIZE(80) TOTAL);
DCL EOF_BLKIN BIT(1) ALIGNED INIT('0'B);
DCL WS_VAR CHAR (80) INIT ('');
DCL DATE_PARS PIC '99999';
DCL 1 WS_STR BASED(ADDR(WS_VAR)),
5 WS_BATCH CHAR (3),
5 FILLER1 CHAR (1),
5 WS_DATE CHAR (8),
5 FILLER2 CHAR(68) INIT ('');
/**/
ON ENDFILE (BLKIN) EOF_BLKIN = '1'B;
ON ERROR SNAP
BEGIN;
ON ERROR SYSTEM;
PUT SKIP DATA(BLKIN_IN);
END;
OPEN FILE (BLKIN) TITLE ('STEPIN');
OPEN FILE (BLKOT) TITLE ('STEPOUT');
/**/
FETCH XDATE;
READ FILE (BLKIN) INTO (WS_VAR);
SELECT (WS_BATCH);
WHEN ('B01')
DO;
WS_BATCH = 'B02';
CALL XDATE ('MMDDYYYY',WS_DATE,'PARSD',DATE_PARS);
DATE_PARS = DATE_PARS + 1;
CALL XDATE ('PARSD',DATE_PARS,'MMDDYYYY',WS_DATE);
END;
WHEN ('B02')
WS_BATCH = 'B01';
OTHERWISE
PUT SKIP LIST ('INVALID BATCH NO.');
END;
WRITE FILE (BLKOT) FROM (WS_VAR);
/**/
END TEST03; |
But I am getting some extra characters in the output. See the files below
| Code: |
| INPUT : B01 02292008 |
| Code: |
| OUTPUT : B02 02292008h. |
I will really appreciate if any one can please explain why this is so and what should do to avoid these.
Thanks
Bhim |
|
