Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

can i anyone tell me how to use copybooks in cobol

Answer Posted / surya

In DATA DIVISION, under WORK-STORAGE SECTION, we can mention the copy book. Please find the example below.

COPYBOOK "WRKRCD" having the below statements.
01 WORK-RECORD.
05 NAME-FIELD PIC X(1).
05 FILLER PIC X(1) VALUE SPACE.
05 RECORD-NO PIC S9(3).
05 FILLER PIC X(1) VALUE SPACE.
05 LOCATION PIC A(3) VALUE "NYC".
05 FILLER PIC X(1) VALUE SPACE.
05 NO-OF-DEPENDENTS PIC X(2).
05 FILLER PIC X(7) VALUE SPACES.

In program we can mention like below

DATA DIVISION.
WORKING-STORAGE SECTION.
COPY WRKRCD.

Is This Answer Correct ?    0 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Explain what all the conditiones required for using open opcode on a file?

1005


How to update data area in cobol 400 program?

1081


I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks

2529


How to detect record is locked in cobol/400?

1020


What is redefine?

1334


Define sort?

1251


Explain the input procedure and output procedure?

960


Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?

1207


What is input procedure?

1047


seqence numbers in cobol

3164


What is perform?

1156


How to detect record is locked in cobol/400? What is the solution for that?

1010


Define perform?

1052


Explain the difference between search and searchall?

917


Define redefine?

1183