FORTRAN examples

INTEGER     LASTRC*4
CHARACTER   SERVIS*8,TABLE*8,OPTION*8
DATA        SERVIS/'TBOPEN  '/
DATA        TABLE/'XTABLE  '/
DATA        OPTION/'NOWRITE '/
     ⋮
LASTRC=ISPLNK(SERVIS,TABLE,OPTION)

 
INTEGER    LASTRC *4
CHARACTER  SERVIS *8 ,DATAID *8 ,OPTION *8
DATA       SERVIS/'LMOPEN '/
DATA       OPTION/'INPUT '/
⋮
LASTRC = ISPLNK(SERVIS, DATAID, OPTION)

For FORTRAN service requests, you can use literals in assignment statements to initialize parameter variables. You must use previously defined constants in assignment statements. For example:

CHARACTER  LMOPEN *8 ,SERVIS *8
DATA       LMOPEN/'LMOPEN  '/
⋮
SERVIS = LMOPEN