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