Record size is 70 i want retrive first 50 characters

srinivas.u · New User Joined: 07 Jun 2004 Posts: 19

hi

in cobol file the record size is 70 i want retrive first 50 characters.

imvs · New User Joined: 12 May 2004 Posts: 33

srinivas.u,
In order to discuss in the same topic you can use POST REPLY instead of
opening a new topic.

Comming to you question, there are couple of ways to do it.

1) 01 ws-rec.
02 ws-reqd-50-data pic x(50).
02 filler pic x(20).
display ws-reqd-50-data.

2) 01 ws-rec pic x(70).
01 ws-reqd-50-data.

move ws-rec(1:50) to ws-reqd-50-data.
display ws-reqd-50-data.

jz1b0c · Posted: Fri Nov 19, 2004 2:06 am

Srinivas,

Actually you dont need to do any thing like above simply a move statement will solve this.

01 ws-rec-70 pic x(70).

01 ws-rec-50 pic x(50).

MOVE WS-REC-70 TO WS-REC-50.

This will retrieve only first 50 characters and rest will be truncated.

muthukumarapandian · Posted: Sun Feb 27, 2005 6:01 pm

Hi imvs,

reference modifier is possible in cobo 85 and versions after that, simply moving 70 bytes variable to 50 bytes variable will truncate and gives the required result.

ankyhunk · Posted: Fri May 06, 2005 1:44 pm

You can also copy a 70 char dataset to 50 char dataset using IEBGENER utility

MainframeHelp4_u · New User Joined: 15 Aug 2006 Posts: 25

1) Keep o/p file length 50 characters, and with SORTIN is 70 bytes file & SORTOUT is 50 bytes file.. try this option...

2) with the help ofSORT : Copy first/any 50 characters to output DSN..

Cheers
Mainframehelp4_u

ofer71 · Posted: Sun Sep 03, 2006 2:01 am

Or with REXX: "VAR1 = SUBSTR(VAR2,1,50)"

O.