Equivalent Cobol code needed for the given PL/I code

spriya · New User Joined: 06 Oct 2005 Posts: 42

hi

can any one give the equivalent cobol code frm the pl1

DCL CONTRL_BLK_DEF CHAR(100) BASED(CONTRL_BLK_PTR);

DCL CONTRL_BLK_PTR POINTER;

ANDS ALSO EXPLAIN THE PURPOSE OF BASED

neelesht · Posted: Thu Jul 27, 2006 8:05 pm

Hi Priya,

This is Pointer, I mean in PL1 we have Pointer facility, so you can not convert this to COBOL code. (fortunately COBOl doesn't have pointers :-)).

May be I am unable to explain everything clearly , but we can not convert it to the COBOL code.

Thanks and please let me know if I am wrong.

tsantosh · New User Joined: 03 Aug 2006 Posts: 8

try declaring these in working storage :

01 MYSTRING PIC X(100) VALUE 'THIS IS MY DATA'
01 MYPOINTER USAGE IS POINTER

and then in procedure division :

SET MYPOINTER TO ADDRESS OF MYSTRING.