COBOL examples

PROCEDURE DIVISION.
   CALL 'ISPLINK' USING BY CONTENT 'TBOPEN  ' 'XTABLE  ' 'NOWRITE '.

 
WORKING-STORAGE SECTION.
   77  SERVIS      PICTURE A(8) VALUE 'LMOPEN  '.
   77  DATAID      PICTURE A(8).
   77  OPTSHUN     PICTURE A(8) VALUE 'INPUT   '.
   ⋮
PROCEDURE DIVISION.
   CALL 'ISPLINK' USING  SERVIS DATAID OPTSHUN.

For service calls in COBOL, you can use literals in assignment statements to initialize parameter variables, as in:

MOVE 'LMOPEN ' TO SERVIS.