question cobol/db2/vsam .. Please Hlep me out !!!!!

siva2 · New User Joined: 10 Feb 2006 Posts: 7

hai .,
Very urgent please HELP ME OUT...
I will be really thank full if give the answers ..
1 .I have a COBOL/DB2 pgm , i have to modify the program .. tell what to be done from stage 1 .. till the tesing process..

-how to retrive from production region
-where u will place..
-modification done in jcl..
-compiling..

2.how to count number of records in VSAM file ( of any type ) with out opening it .. u should use file-aid options

3. I have ten records .. amoung which one of record is error ( contains invalid datas) .. tell me a logic to find error record ..

4.im having a LREC = 80 for a FAT file and now im changing the LREC = 90
what r the modification should be done in cobol pgm ..
(IN SIMPLE ADDING AN ADDITIONAL COLUMN TO EXSITING FILE )
wht should be done ..

with regards .,

siva kumar ..

babuprasad_g · New User Joined: 26 May 2005 Posts: 45 Location: gurgaon

1 .I have a COBOL/DB2 pgm , i have to modify the program .. tell what to be done from stage 1 .. till the tesing process..

Ans:

First retrive your cobol module from production.
If you use endevour.
Go for first unit level.
Then ---> Foreground option ----->retrive option --->then enter fields
ENVIRONMENT ===>
SYSTEM ===>
SUBSYSTEM ===>
ELEMENT ===>
TYPE ===> COBOL2
STAGE ===> (Developer level/Production)
COMMENT ===>

TO ISPF LIBRARY:
PROJECT ===>
LIBRARY ===>
TYPE ===>
MEMBER ===>

And CCID. pUT "R" In you command then enter.

You will get your cobol module.
then you will do the modificaions.
then use compile JCL do some modifications.
Do some testing by using expeditor/Manual testing.
then ADD in to the Endevour

CUDNAREN · New User Joined: 06 Jan 2006 Posts: 9

THE ANSWER FOR THE 3RD QUESTION THAT IS

I have ten records .. amoung which one of record is error ( contains invalid datas) .. tell me a logic to find error record

WHEN U RUN THE PROGRAM USING THIS FILE WHERE IN OUT OF 10 RECORDS 1 IS CORRUPTED THEN THE PROGRAM GETS ABENDED AND IF U GO AND CHECK IN SYSDUMP U FIND THE CORRUPTED RECORD WHERE IT HAS GOT ABENDED.

HOPE THIS HELPS OUT.