FORTRAN example

For functions written in FORTRAN, pass arguments as FORTRAN variables or literals.

INTEGER      LASTRC*4
CHARACTER    SERVIS*8,SCLM_ID*8,GROUP*8
DATA         SERVIS/'DELETE  '/
DATA         SCLM_ID/'SCLM0001'/
DATA         GROUP/'USER1   '/
             ⋮

LASTRC=FLMLNK(SERVIS,SCLM_ID,GROUP,...)

For FORTRAN service requests, initialize parameter variables by using literals in assignment statements. You must use previously defined constants in assignment statements.

CHARACTER    DELET*8,SERVIS*8
DATA         DELET/'DELETE  '/
   ⋮

SERVIS=DELET