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

Answer Posted / jyoti prakash

total no in pos field is 9 byte

Is This Answer Correct ?    0 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What do you understand by psb and acb?

668


If you are current on the owner of a set, what is the difference between obtain next and obtain first?

644


What are declaratives and what are their uses in cobol?

714


how do you reference the variable unblock file formats from cobol programs

752


What are the different data types in cobol?

801






What is a SSRANGE and NOSSRANGE?

825


What are the pertinent COBOL

2046


How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?

703


How to use the same COBOL program in Batch and CICS on lines? explain with an example

1914


Difference between cobol and cobol-ii?

715


How do you reference the following file formats from cobol programs?

698


What is the difference between PIC 9.99 and 9v99 in COBOL?

737


Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks

2338


Which mode is used to operate the sequential file?

671


how we sort two input files based on a common column and giving one o/p file please send me the coding logic?

1657