Software Reference Manual - NetEx

Example of Sending Record Module (FORTRAN)
C
C EXAMPLE OF USER-WRITTEN, SENDING.RECORD MODULE WHICH ACCESSES
C A VSAM DIRECT FILE. WHEN 'SNDREC' IS CALLED, IT IS TO PROVIDE
C 'UNFORMATTED' RECORDS WHICH ARE 80 BYTES IN LENGTH. THE
C 'DDNAME' IS SUPPLIED BY THE CALLER. (THE STANDARD BFX RECORD
C MODULE WILL NOT READ VSAM FILES, SINCE IT IS WRITTEN IN ASSEMBLER
C AND USES 'GETS' AND 'PUTS'.)
C
C DATA STRUCTURES-PARMS
C
SUBROUTINE SNDREC (BUF,BUFLEN,BUFLEV,MSG,MSGLEN,MSGLEV,
RPARM,MODE,DDNAME)
+
INTEGER*4 BUF(20)
INTEGER*4 BUFLEN,BUFLEV,MSGLEN,MSGLEV,MODE
CHARACTER*128 MSG
CHARACTER*64 RPARM
CHARACTER*8 DDNAME
C
C RECORD COUNTER (NREC), IOSTAT INDICATOR (IOIND), ERROR MESSAGE
C (EMSG), AND INTERNAL FILE FOR THE VSAM ERROR CODE (ECODE)
C
INTEGER*4 NREC
INTEGER*4 IOIND
CHARACTER*32 EMSG
CHARACTER*4 ECODE
C
C ENTRY POINT: BUFLEV = -1 - FIRST CALL
C
BUFLEV = 0 - SUBSEQUENT CALLS
C
BUFLEV = 16 - FILE XFER ABORT
C
100 IF (BUFLEV .EQ. -1) GO TO 200
IF (BUFLEV .EQ. 0) GO TO 300
IF (BUFLEV .EQ. 16) GO TO 400
GO TO 400
C
C OPEN THE FILE ON INITIAL ENTRY
C
200 OPEN (11,FILE=DDNAME,ACCESS='DIRECT',FORM='UNFORMATTED',RECL=80)
C
C THEN PROVIDE PARMS AND INITIAL MESSAGE TO CALLER. INITIALIZE NREC
C
BUFLEN = 80
BUFLEV = 1
MSGLEN = 15
MSGLEV = 5
MSG = 'FILE WAS OPENED'
NREC = 0
RETURN
C
C SUBSEQUENT CALLS
C
Page 66 Appendix A: User Modules MAN-REF-H211-05