Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : Q. If there is a situation, where we need to code more than 255 steps in a JOB? A. We need to split jcl into two jcls , at the end of the first jcl check the condition code and initiate the second jcl.

Google
 
Web mainframegurukul.com

Programmers Voted for below topics.      Please Vote for good Posts. Votes Salutes
Topic Title Votes Salutes
splitting of records using cobol 6
HOW TO FIND LINKAGE LENGTH 6
SOC 7 abend - interview question 6
Infosys Training Program for freshers 5
EJECT Verb in COBOL 5
jcl sort to add leading zeroes 5
Changes in copybook 4
Comparing two files 3
What are the issues related with correlated subqueries? 3
VSAM File status 23 ,but records are present in the file 3
what is index or subscript in cobol. please give me brief ex 3
IKJ56500I COMMAND DSN NOT FOUND 3
Cobol Multiple Choice Questions By Shravan Wipro 3
Merging two files into one based on certain key fields: 1 1
what is index or subscript in cobol. please give me brief ex 1 1
Copy GDG to GDG (one to one). 1 1
Cobol Multiple Choice Questions By Shravan Wipro 1 1
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 1 1
What is the difference between SYNONYM and ALIAS? 1 1
PROCLIB 1 1
sort two files with same sort condition 1 1
What is the difference between Copy and Include? 1 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1 1
jcl sort to add leading zeroes 5
VSAM File status 23 ,but records are present in the file 3
Urgent Help needed !! 3
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 3
How we can access PDS and its Members thru COBOL ? 3
What is auditing? 2
Reg DFSORT utility. 2
Computer based tutorial on IMS DB/DC 2
what is index or subscript in cobol. please give me brief ex 2
How to compare two ps files having millions of records ? 2
Cobol Multiple Choice Questions By Shravan Wipro 2
SOC 7 abend - interview question 2
How to read HEX file and convert it into decimal in REXX. 2
Various Locking mechanism for cursors and other SQL? 2
How to fetch and compare the system date in JCL 2
stored procedure in cobol 2
VERTICAL ARRAY IN CICS 2
what s the difference between DB2 & ADB2? 2
How to assign System Date/Time to a parameter in a JCL pgm? 1
is the answer correct?? 1
Mainframe Developer Requirement - Coimbatore 1
Man of the year 1
I need to FTP from MF to UNIX 1
Control flow from one STEP to another 1
How to convert Julian date format into yyyymmdd date format? 1
What is the difference between Static and Dynamic Binding? 1
In jcl please help me. 1
Access DB2 region using rexx 1
DFHAC2016 - Trans XXXX cannot run because program XXX is Not 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1
How to use XREF.. 1
DB2 checkpoint-restart doubts 1
Comparing 2 files based on Acct number without using tables 1
JCL-I need to FTP from MF to Local computer 1
cics 1
sort two files with same sort condition 1
U4093 IMS Abend 1
writing 2 records for each qualifying input record. 1
Is it possible to get last modified date of PDS members... 1
Merging two files into one based on certain key fields: 1
How to run only 2 steps out of 100 steps??? 1
Corresponding statement 1
Difference between an Object Module and Load Module 1
Moving cursor to next field in ISPF dialog 1
DB2 query !! 1
JCL Interpreter :?: 1
Comparing Date with current date 1
SORT verb - help 1
Redefine with the larger value.

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL
  View previous topic :: View next topic  
Author Message
sjadhav
Member


Joined: 20 Mar 2007
Posts: 2

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Mar 21, 2007 6:49 pm    Post subject: Redefine with the larger value. Reply with quote

Hi,

Could any body please tell me if i can redefine X(11) to X(20).
E.g Before change

05 Var-1.
10 Var-2 PIC X(11).
05 Var-3 PIC X(5)

After Change

05 Var-1.
10 Var-2 PIC X(11).
10 Var-4 REDEFINES Var-2 PIC X(20).
05 Var-3 PIC X(5)

But now in this case, is there a chance that i lose my data because of this change.
If my Input file contains "ABCDEFGHIJKLMNOPQRSTUVWXYZ", my variables will contain these values before any change
Var-2 : ABCDEFGHIJK
Var-3 : LMNOP

Now after redefines will i lose the data for Var-3
Var-4 : ABCDEFGHIJKLMNOPQRST
Var-3 : UVWXY

Please let me know.
Thanks,
Sachin.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

Veera
Moderator


Joined: 22 Feb 2006
Posts: 111

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Mar 22, 2007 4:47 am    Post subject: Reply with quote

Sachin,

In ur second case i.e after Change still Var-3 will hold : LMNOP only.

If u redefine with greater length than the variable which is being redefined,

the new variable which u redefined will have VALUE as menitoned below

This VALUE can be KLMNOPQRST as u have given, but it cant be guaranteed that it will always hold the value of KLMNOPQRST because what ever data that will be present in the
file is not always stored continously in the memory sequentailly.But in most of the cases u will get the value KLMNOPQRST but under extreeme cases based on the memory usage by other programs the value may vary.

But yes Var-3 will hold : LMNOP only this value doesnot cahnge.

Well we can run a sample test and confirm the same..will update you
on this once i do a test.

Thanks
Veera.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
sjadhav
Member


Joined: 20 Mar 2007
Posts: 2

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Mar 22, 2007 7:31 pm    Post subject: Reply with quote

Veera,

Thank you for your reply.

Here i am not clear that why you are saying the VALUE will be "KLMNOPQRST", which variable are you taking about.

Could you please help me understand, what will be the values of Var2, Var3, Var4 specifically after redefining the variables.

Also once you test the programs, please confirm the correct value.

Thanks,
Sachin.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Veera
Moderator


Joined: 22 Feb 2006
Posts: 111

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Mar 23, 2007 12:53 am    Post subject: Reply with quote

Sachin,

05 Var-1.
10 Var-2 PIC X(11).
10 Var-4 REDEFINES Var-2 PIC X(20).
05 Var-3 PIC X(5)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
A B C D E F G H I J K L M N O P Q R S T

Sorry it was a typo error the value is "LMNOPQRST" and not KLMNOPQRST

I am referring this value to the partial positions of what u have defined for VAR-4
starting from postion 12 to 20.

The VAR-4 from 1 to 11 will definitely have the same value as 1 to 11 of VAR-2.

But the value of VAR-4 from 12 to 20 can vary it can be "LMNOPQRST" but
we cannot guarantee that it will always be "LMNOPQRST" since the data
in the INPUT file is not always stored continously in the memory.
It depends on how the data is stored in the meomory after 11th postion
i mean 12 to 20 postion of redefined varaible var-4.

As per ur information given in the post

You have given the value LMNOPQRST from postion 12 to 20 of var-4
based on the assumption that the data in the I/P file will be
stored continously "ABCDEFGHIJKLMNOPQRSTUVWXYZ", and since
from postion 12 u have "LMNOPQRST" so we get

1 to 11 from VAR-2 AND

12 TO 20 FROM I/P->FILE POSTIONS

But this is not always true, the data in postions from 12 to 20 can vary depending
on memory usage but most of the case we get the value as "LMNOPQRST" as per the
file data.But it will vary once in n times if we test randomly.

Values in Varaibles
*******************

Var-2 : ABCDEFGHIJK
Var-4 : ABCDEFGHIJK LMNOPQRST -> We cant 100% say for sure that from postion 12 we will
always have this value.
Var-3 : UVWXY

Thanks
Veera.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Veera
Moderator


Joined: 22 Feb 2006
Posts: 111

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Mar 23, 2007 1:05 am    Post subject: Reply with quote

Sachin,

But there will be implications if you move any value to data
VAR-4 which of length 20, say if u move any value into
var-4 which is also of length 20 bytes then var-3 will hold
some data from it.


Thanks
Veera
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
DavidatK
Active Member


Joined: 27 Mar 2007
Posts: 65
Location: Troy, MI USA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Mar 28, 2007 4:52 am    Post subject: Reply with quote

Hi Sachin,

COBOL will slap you hand if you redefine a variable with a larger variable, but it will compile it. In my case we get a return 12 and will not link edit however.

Code:

01  INPUT-RECORD.      
    05  Var-1.
        10 Var-2 PIC X(11).
        10 Var-4 REDEFINES Var-2 PIC X(20).
    05  Var-3 PIC X(5)


The code above, that redefines var-2 with a larger var-4 has the same offsets as the code below. Var-3 offset starts at var-1 + the largest data area in var-1.

Code:

01  INPUT-RECORD.
    05  Var-1.
        10 Var-4 PIC X(20).
        10 Var-2 REDEFINES Var-4 PIC X(11).
    05  Var-3 PIC X(5)


If you move ?ABCDEFGHIJKLMNOPQRSTUVWXY? to INPUT-RECORD.

In both coding cases above:
Var-1 will contain ?ABCDEFGHIJKLMNOPQRST?
Var-2 will contain ?ABCDEFGHIJK?
Var-4 will contain ?ABCDEFGHIJKLMNOPQRST?
Var-3 will contain ?UVWXY?

Dave
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts Many JCL statements contain specific values designed to dire 1 Krishna 3971 Tue May 12, 2009 5:39 pm
Krishna View latest post
No new posts Summing up of values using Syncsort 3 anu.slaksh 6195 Thu Nov 15, 2007 9:08 pm
Frank Yaeger View latest post
No new posts query reguarding passing values 0 lucky.rohith 2753 Thu Aug 24, 2006 12:08 am
lucky.rohith View latest post
No new posts difference between COMP and COMP-3 2 pkaushi 14661 Mon Aug 14, 2006 4:22 pm
ravi View latest post
No new posts comp and comp3 1 padmapriya7 10035 Mon Feb 06, 2006 12:27 am
prasad View latest post
 





Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-2372.html