SORT-MERGE/XL Programmer's Guide (32650-90884)

ManualsBrandsHP ManualsSoftwareMPE/iX 6.5 Operating System

118 AppendixD

FORTRAN Program Examples

Example of Using an Altered Sequence

NEW = 4

WRITE = 1

SIZE = 80

FRUITFILE = '%FRUIT%'

call HPFOPEN (FRUITFILENUM, STATUS, DESIGNATOR,

2 ,FRUITFILE, DOMAIN, NEW, ACCESS, WRITE

3 ,RECORD_SIZE, SIZE)

if (STATUS .ne. 0) then

print *, 'HPFOPEN error on FRUITFILE. Terminating.'

call QUIT (2)

endif

C

return

end

C

subroutine DO_SORT

C

system intrinsic HPSORTINIT

2 ,HPSORTERRORMESS

3 ,HPSORTEND

4 ,HPSORTINPUT

5 ,HPSORTOUTPUT

6 ,QUIT

C

integer OUTPUT_OPTION

2 ,NUMKEYS

3 ,INPUTFILES(2)

4 ,OUTPUTFILE(2)

5 ,KEYS(4)

6 ,DATAFILENUM

7 ,FRUITFILENUM

8 ,STATUS

C

character ALTSEQ*96

1 ,MESSAGE*80

C

common /PARMS/ DATAFILENUM, FRUITFILENUM, STATUS

C

INPUTFILES(1) = DATAFILENUM

INPUTFILES(2) = 0

C

OUTPUTFILE(1) = FRUITFILENUM

OUTPUTFILE(2) = 0

C

OUTPUT_OPTION = 0

C

NUMKEYS = 1

KEYS(1) = 1

KEYS(2) = 20

KEYS(3) = 0

KEYS(4) = 0

C

ALTSEQ(1:2) = ' '

ALTSEQ(1:1) = CHAR(0)

ALTSEQ(2:2) = CHAR(93)

C

ALTSEQ(3:17) = '!"#$%&''()*+,-./'

ALTSEQ(18:33) = '0123456789::<=>?'