HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?






HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?..

Answer / adarsha

01 ws-misc-vars.
05 system-date pic x(06) value spaces.
05 system-date-rede redefines system-date
10 system-dt-yy pic x(02) value spaces.
10 system-dt-mm pic x(02) value spaces.
10 system-dt-dd pic x(02) value spaces.

01 ws-rep-dt-frmt pic x(06) value space.
.
.
.

procedure division.

move system-date to ws-rep-dt-frmt.

*** when you want any particular variable to be recevied or
stored in a particular format you can redefine them in the
way you want.. here system-date-rede has the same value as
system-date !

Is This Answer Correct ?    1 Yes 0 No

Post New Answer




More COBOL Interview Questions

How many sections are there in data division?.

10 Answers   TCS, Amdocs,


how do u indetify files succesfully executed or not ?

4 Answers   TCS,


SIGN TRAILING SEPARATE field occupy ?

3 Answers  


what is linkcard in cobol?

1 Answers   TCS,


In COBOL CALL-CALLING,if a program A is calling 3 sub- programs, dynamically, then it is said sub-programs will always will always in Initial Mode. My question is : Do we need to code CANCEL or (IS INITIAL) for dynamically called sub-programs or it is the property of Dynamically called pgms so every time sub-pgms are called they will be in initial mode. ***This question is only Dynamic call****, Please reply. Thank you in advance.

4 Answers   Wipro,






input:- A 10 20 30 40 B 5 7 10 14 C 8 12 14 16.... output:- A = 100,B=36,C=50. Here spaces are considered between numbers. When we give input as above, the numbers should be added n displayed.So please help me out.

3 Answers  


How to open and see copy book ?

3 Answers  


suppose there is one PF having two members PF1 PF2.PF has one unique key Emp ID.could you tell me uniqueness in PF will be effective across members as well ? assume emp iD 3333 is in member PF1 would same Emp id be exist also in member PF2 ?

2 Answers   Tesco HSC, Wipro,


Explain fixed length record in cobol? with suitable example

1 Answers   IBM,


Consider the following COBOL entries 05 X PIC 99 VALUE 10. ADD 40 X TO X. COMPUTE X = 3 * X - 40. The result in X is

12 Answers   TCS,


how to display the dataset information?

2 Answers  


what will happen if pass values more than 100 using PARM parameter?

1 Answers  






Categories