The image from your tutorial didn't post, but the managed class code goes something like this: method-id managedMethod. local-storage section. 01 custRecord. 05 contact pic x(20). 05 company pic x(20). 05 phone pic x(15). procedure division using mystring as string. set custRecord to mystring move "John Smith" to contact set mystring to custRecord goback. end method.
↧