SORT-MERGE/XL Programmer's Guide (32650-90884)
112 AppendixD
FORTRAN Program Examples
Example of Record Input
C
DISPOSITION = 0
SECURITYCODE = 0
C
call FCLOSE (TEMPFILENUM, DISPOSITION, SECURITYCODE)
call FCLOSE (PERMFILENUM, DISPOSITION, SECURITYCODE)
DISPOSITION = 1
call FCLOSE (OUTFILENUM, DISPOSITION, SECURITYCODE)
return
end
When this program is executed, the output is written to ALLEMP. To view ALLEMP:
:print allemp
Everett, Joyce *000029 10/19/87
Gangley, Tomas *000003 06/06/87
Jackson, Jonathan 000006 06/06/87
Jackson, Rosa 000022 08/15/87
Jones, Eliza 000001 06/06/87
Rields, Evelyn *000007 07/12/87
Smith, James 000005 06/06/87
Washington, Lois 000014 07/23/87