Answer / nimsatprasad

IDENTIFICATION DIVISION.
PROGRAM-ID. ADDFILES.
AUTHOR. PRASAD.
DATE-WRITTEN. 2007/07/26.
DATE-COMPILED. 2007/07/26.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE1 ASSIGN TO INPUT1
FILE STATUS IS WS-INPUT1-STATUS.
SELECT INPUT-FILE2 ASSIGN TO INPUT2
FILE STATUS IS WS-INPUT2-STATUS.
* HERE INPUT-FILE2 IS NEWLY ADDED
SELECT OUTPUT-FILE1 ASSIGN TO OUTPUT1
FILE STATUS IS WS-OUTPUT1-STATUS.
SELECT OUTPUT-FILE2 ASSIGN TO OUTPUT2
FILE STATUS IS WS-OUTPUT1-STATUS.
* HERE OUTPUT-FILE2 IS NEWLY ADDED
DATA DIVISION.
FILE SECTION.

FD INPUT-FILE1
RECORD CONTAINS 71 CHARACTERS
RECORDING MODE IS F
DATA RECORD IS XXX-RECORD.
01 INPUT-REC1 PIC X(71).

FD INPUT-FILE2
RECORD CONTAINS 71 CHARACTERS
RECORDING MODE IS F
DATA RECORD IS YYY-RECORD.
01 INPUT-REC2 PIC X(71).
* NEWLY ADDED FD.

FD OUTPUT-FILE1
RECORD CONTAINS 71 CHARACTERS
RECORDING MODE IS F
DATA RECORD IS AAA-RECORD.
01 OUTPUT-REC1 PIC X(71).

FD OUTPUT-FILE2
RECORD CONTAINS 71 CHARACTERS
RECORDING MODE IS F
DATA RECORD IS BBB-RECORD.
01 OUTPUT-REC2 PIC X(71).
* NEWLY ADDED FD.

WORKING-STORAGE SECTION.
--
--
--
PROCEDURE DIVISION.
...
...
...

THE BELOW INFORMATION ALSO IS USEFUL FOR THE DECLERATION.

Fixed Block File
• Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE
IS F, BLOCK CONTAINS 0.

Fixed Unblocked
• Use ORGANISATION IS SEQUENTIAL. Use RECORDING
MODE IS F, do not use BLOCK CONTAINS

Variable Block File
• Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE
IS V, BLOCK CONTAINS 0. Do not code the 4 bytes for record
length in FD i.e. JCL REC length will be max REC length
in PGM + 4

Variable Unblocked
• Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE
IS V, do not use BLOCK CONTAINS. Do not code 4 bytes for
record length in FD i.e. JCL REC length will be max REC
length in PGM + 4.

ESDS VSAM file
• Use ORGANISATION IS SEQUENTIAL.

KSDS VSAM file
• Use ORGANISATION IS INDEXED, RECORD KEY IS,
ALTERNATE RECORD KEY IS

RRDS File
• Use ORGANISATION IS RELATIVE, RELATIVE KEY IS

Printer File
• Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE
IS F, BLOCK CONTAINS 0. (Use RECFM=FBA in JCL DCB).

*** IF ANY THING WORNG REGARD THIS LET ME KNOW, THANKS.

Answer / aniket potwekar

Add File-control para in environment division with select
clause for input and output file.Declare there organization
and access mode.
then in data division add file descriptor entry for each
file.These must be in file section.
Then use these files in procedure division.

Write some characteristics of cobol as means of business language.

0 Answers  

---

How will you find the currepted records in a file

2 Answers  

---

How you can delete a record from a ps file in cobol?

1 Answers  

---

In A cobol program , we can use COPY Statement in FILE- SECTION / WORKING-STORAGE SECTION / ENVIRONMENT DIVIION basically what is the difference

3 Answers   IBM,

---

77 a pic x(4) value '1234' -----> instead of this 'abcd' 77 b pic 9(4) value zeros. move a to b what is the answers for both cases? IS it possible? Give me elementary move rules briefly......

8 Answers  

---

Why would you use find and get rather than to obtain?

0 Answers  

---

How can we increase the size of an existing PDS to include more no. of modules. I tried the answer posted by Jagan(TSO PDS 'pds name') but did not find it working. The answer posted by kamal i know very well. Please suggest me a answer so that we don't need to delete the existing PDS and still we can change the size as well.

10 Answers  

---

Can a Search can be done on a table with or without Index?

0 Answers  

---

can we redefine 77 level item is it possible

4 Answers   HCL,

---

In COBOL, what is the different between index and subscript?

0 Answers   TryTechnicals Pvt Ltd,

---

In an array processing what is the thing that can be done by using subscripts but not by using index

4 Answers   JPMorgan Chase,

---

What is the Purpose of Pointer in the string?

0 Answers  

---