MVSFORUMS.com

when u print 9(7) usign disply is shows leading zeros - but tthat does not happen when you write to file

I have a field 9(7) which can take values like 4/44/444/4444444 etc
I need to write this data in output file as
0000004
0000044
4444444

how do i get the leading zeros?

if i move 9(7) to ...

I have an exisitng code which abends if a file in unavailable. ( AEXL)

Now, i want to implement the following senario -

I want the program to display a message on screen
"file xxxx is cl ...

Thanks ... leme try this out

guys .... 3 days and no soln......
does it mean that it cant be done???

I need a list of all members present in the soucelib of the librarian
Is these any way to do this usig FILEAID

Also, is there any tutorial/sample progs/reference available from where programming u ...

@Jaya
I need to initialize all those COMP-3 fieleds from an IMS DB to ZEROS which are either SPACES or LOW-VALUES.
For this, i need to be able to distinguish them

I need to check if a S9(3)v9(4) COMP-3 variable is LOW-VALUES or SPACES.

How do I write it in COBOL?

We are using the secondary index to improve performance of the existing code
The plan is to seek the segment using an index and then insert/update depending on conditions

Hi Anil
i'm not sure what u mean by this
"what is source and target segments of secondary index"

"what segment information ur looking here"
I'm looking to insert / update ...

I have a IMS DB DB1

the struct of this DB is as follows

DBROOT (key = KEY1)
|
|--DBSEG1 (key = KEY2)

now an index has been created on DBSEG1
The structure now looks like this if the index ...

How far to restore old archived CICS transactions from AADF?
Is there a age limit on the transactions which can be restored using AADF?
If there is a limit, is there any way to find it out?

I have values in a file in the format S9(8 ).99 and S9(8 ).99 comp-3
I want to print these values in another file in the format 99999999.99(-)

I want to do this using Ezetrieve

Thanks a lot @kolusu

I have a file which contains a 10 character field
I want to sort out all records that have 'ABC anywhere in this 10 character field

eg:

Input

xxxxxxxfsssdfddmssxxxxxxxxxxxx
xxxxxxxporABCjud ...