Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to move blanks in Selcopy

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
kedianirmal

New User


Joined: 08 Feb 2008
Posts: 82
Location: Bangalore, India

PostPosted: Mon Aug 17, 2009 9:27 pm    Post subject: How to move blanks in Selcopy
Reply with quote

Hi,

I have a Variable blocked PS file of length 5264. We are increasing the record length of the file to 8264.
For data testing purpose i have to cut the file from 8264 to 5264, I am using a selcopy for the same.
In the file the last 1100 bytes length are not certain and is varies.
In the selcopy to clear the data of the record after writing to the new file of 5264 i am moving Spaces (' ') to the worklength.
As the file is VB the empty space at the end of each record is blanks but after moving spaces it showing as X'40'

Could you please help how to move blanks in the selcopy i.e. in hex mode also it will show as blank only.

Thanks,
Nirmal
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Aug 18, 2009 1:42 am    Post subject:
Reply with quote

Hello,

X'40' is a blank.

Quote:
As the file is VB the empty space at the end of each record is blanks
I suspect this is not the case. . .

The empty space at the end of th record is not space at all - those positions do not exist which may be why the file is variable. By moving spaces, you have made the record now contain all of those x'40's.
Back to top
View user's profile Send private message
Nick Jones

New User


Joined: 28 Apr 2009
Posts: 13
Location: UK

PostPosted: Mon Sep 28, 2009 4:05 pm    Post subject:
Reply with quote

SELCOPY will truncate trailing blanks when writing to a RECFM=VB format data set if parameter TRUNC is specified on WRITE.

Code:
READ INVB8264                    * Input record from RECFM=VB LRECL=8264 data set.
IF LRECL > 5264                  * Length of last input record is >5264.
   THEN LRECL=5264               * Restrict this record's length to 5264.
WRITE OTVB5264    TRUNC          * Trailing blanks will be truncated up to max length 5264.


Please note that SELCOPY support is **free of charge**.
Email: support@cbl.com
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Move from Comp3 variable to Edited Va... sreekusr COBOL Programming 8 Thu Aug 10, 2017 4:20 pm
No new posts DB2 9.1.0 not move values to Host-Var... Miguel Fernandez DB2 8 Wed Jan 25, 2017 8:24 pm
No new posts DB2 9.1.0 not move values to Host-Var... Miguel Fernandez DB2 0 Wed Jan 25, 2017 8:23 pm
No new posts DB2 9.1.0 not move values to Host-Var... Miguel Fernandez DB2 0 Wed Jan 25, 2017 8:21 pm
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us