Interested to Buy Any Domain ? << Click Here >> for more details...
Will the variable POS in the following code have a value of
2 or not?
01 POS PIC S9(4) COMP VALUE 2.
01 FIRST-NAME PIC X(10) VALUE 'ABC'.
01 LAST-NAME PIC X(10) VALUE 'XYZ'.
01 NAME PIC X(20) VALUE SPACES.
STRING FIRST-NAME DELIMITED BY SPACES
' ' DELIMITED BY SIZE
LAST-NAME DELIMITED BY SPACES
INTO NAME
WITH POINTER POS
- 2 Answers
- 4773 Views
- I also Faced
- E-Mail Answers
Answer Posted / shobhit garg
No, It wont have value 2. rather value of POS will be 9.
Pointer specifies the number of non blank characters moved
to the receiveing string ( in our case its NAME).
So FIRST-NAME will return 3 bytes then a space then LAST-
NAME will return 3 bytes means overall 7 bytes.
Since our POS varibale starts from 2 , so overall count for
POS will be 2 + 7 = 9
| Is This Answer Correct ? | 7 Yes | 0 No |
Post New Answer View All Answers
Program A (Normal COBBAT) calling a B Program (DB2COBOL, COBBATDB which is using a VSAM file. its a dynamic call. How we will handle VSAM file decleration in our from JCL from where we are running A PGM. And should we have PLAN for A pGM also. if possible can some one post a sample JCL. Thanks for help in advance.
Explain how to differentiate call by context by comparing it to other calls?
How to traceback if I am getting SOC7 or SOC4 abend? List down the steps
What is the Purpose of POINTER Phrase in STRING command in COBOL?
How do u write test cases?
What are various search techniques in cobol? Explain.
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
What is rmode(24)
what is the difference between COBOL2 AND COBOL390?
What is amode(24)?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
What are the cobol coding sheets?
What is the difference between structured cobol programming and object alternativelyiented cobol?
2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic
how do you reference the rrds file formats from cobol programs
