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 insert LOW VALUES/HIGH VALUES in a file.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Ambili S

Active User


Joined: 06 Sep 2007
Posts: 112
Location: India

PostPosted: Mon Jul 19, 2010 10:22 am    Post subject: How to insert LOW VALUES/HIGH VALUES in a file.
Reply with quote

Hi

I have a PS file. I want to insert low-values in some position say 5 to 10.
I tried it by opening the file in edit mode and typing C ALL ' ' 5 10 X'00' . But this puts non-displayable characters in position 5 to 10 . I want to know if these non-displayable characters (which can be searched using F all P'.' ) are same as Low values ? If not then how do i insert low values in a file . Using COBOL pgm we can do it , but is it possible to insert them directly in a file.
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: Mon Jul 19, 2010 10:29 am    Post subject:
Reply with quote

Hello,

After the C ALL enter HEX ON. You will be able to see the content in hex.

Many values are non-displayable, but they are still valid. X'00' is such a value.
Back to top
View user's profile Send private message
Ambili S

Active User


Joined: 06 Sep 2007
Posts: 112
Location: India

PostPosted: Mon Jul 19, 2010 10:48 am    Post subject:
Reply with quote

So it means to insert low values in a file i should type it as C ALL ' ' 5 10 X'00' ; HEX ON .

But the pgm is not able to indentify field from 5 to 10 as low values ?
I am doing a check in the pgm for low values. It doesn't seem to indentify it . Could you please help me with the syntax ?
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1002
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Mon Jul 19, 2010 12:18 pm    Post subject:
Reply with quote

Quote:
So it means to insert low values in a file i should type it as C ALL ' ' 5 10 X'00' ; HEX ON .


No. What you originally did inserted low values. Setting HEX ON simply lets you see those values displayed.

What (language) program are you using to check for low values? Can you show the code?

Garry.
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: Mon Jul 19, 2010 12:43 pm    Post subject:
Reply with quote

Hello,

Quote:
But the pgm is not able to indentify field from 5 to 10 as low values ?
I am doing a check in the pgm for low values. It doesn't seem to indentify it .
If the program is coded correctly, it will work as you want.

As Garry requested , show the data definition for this part of the file and the code that references the data. Also show a few of the modified records in hex.
Back to top
View user's profile Send private message
Ambili S

Active User


Joined: 06 Sep 2007
Posts: 112
Location: India

PostPosted: Mon Jul 19, 2010 1:53 pm    Post subject:
Reply with quote

I am just trying to insert low values in a file and checking for the same field in cobol code by using the below syntax.

If Field-1 = low-values
display "low values in field"
end-if.


in cobol , we can use move low-values to field-1 . But what i was trying to do is insert low-values directly in a file and see if cobol code recognises it .
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1002
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Mon Jul 19, 2010 1:56 pm    Post subject:
Reply with quote

But you haven't show us much to work with. Where is the file definition? and the record structure?

Garry.
Back to top
View user's profile Send private message
Ambili S

Active User


Joined: 06 Sep 2007
Posts: 112
Location: India

PostPosted: Mon Jul 19, 2010 2:09 pm    Post subject:
Reply with quote

the input file is of record length 80.

01 REC1.
02 FLD1 PIC X(3).
02 FLD2 PIC X(3).
02 FLD3 PIC X(3).
02 FILLER PIC X(71).
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6970
Location: porcelain throne

PostPosted: Mon Jul 19, 2010 2:14 pm    Post subject:
Reply with quote

since you changed columns 5 thru 10 to low-values,
with which field in REC1 do you expect to make the compare?
Back to top
View user's profile Send private message
Ambili S

Active User


Joined: 06 Sep 2007
Posts: 112
Location: India

PostPosted: Mon Jul 19, 2010 2:20 pm    Post subject:
Reply with quote

Here , based on the layout of REC1 , i am inserting low-values in FLD2 and then checking in cobol pgm if FLD2 has got low-values .
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6970
Location: porcelain throne

PostPosted: Mon Jul 19, 2010 2:28 pm    Post subject:
Reply with quote

as you edited the file,

FLD1-COL01 thru COL03
FLD2-COL04 thru COL06
FLD3-COL07 thru COL09

you stated in your first post, col05 thru col10.
which means you missed fld1, 2/3 of FLD2, and all of FLD3.

so I would suggest comparing FLD3 to low-values.
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: Mon Jul 19, 2010 8:07 pm    Post subject:
Reply with quote

Hello,

Is this working now?

If not, do as asked and post a few of the record in hex. . .
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts VBS and VB, COBOL syntax is the same ... natt.sut COBOL Programming 3 Sun Nov 12, 2017 6:36 am
No new posts Updating data from one file to other!!! Vignesh Sid SYNCSORT 1 Mon Nov 06, 2017 2:42 pm
This topic is locked: you cannot edit posts or make replies. Need help how to pass the ESP variabl... Venkichaitu JCL & VSAM 12 Thu Nov 02, 2017 3:53 am
This topic is locked: you cannot edit posts or make replies. Comparing current time with the time ... arunsoods SYNCSORT 1 Mon Oct 30, 2017 4:07 pm
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm

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