CLLE & POSDBF

["Buzz Fenner" <bfenner@xxxxxxxxxxxxxxxx>]

I guess I?m losing it.  I?m using multiple files in a clle program for the
first time and also have a subroutine in it (for the first time).  The
subroutine code appears below:

             subr       SltRcpOpt
             chgvar     &NoValidOpt 0 /* off is good! */
             opndbf     RcpCdeP1 option(*inp) opnid(pf)
             monmsg     cpf4174
             posdbf     pf *start
 ReadNxt:    rcvf       opnid(pf)
             monmsg     cpf0864 exec(goto NoMatch) /* eof */
             if         (&pf_RcpCde = &SltOpt) then(rtnsubr +
                          rtnval(&NoValidOpt))
             goto       ReadNxt
 NoMatch:    chgvar     &NoValidOpt 1
             clof       pf
             endsubr    rtnval(&NoValidOpt)

All this subroutine does is validates a user-entered option and returns an
integer value.  My problem is with the posdbf command.  It just does not
seem to be repositioning the pointer to the bof (this sub can be executed
multiple times within the program).  Using debug view in iWDSC confirms
this.  In addition, when the clof command executes and an opndbf
successfully re-executes, the file pointer is still not repositioned.  The
job log doesn?t indicate anything unusual happening.  Is there something
going on behind the scenes (ala ILE) since I?ve never had a problem with the
posdbf in an OPM program.



Buzz Fenner
Systems Analyst/Network Administrator
870.930.3374
mailto:bfenner@xxxxxxxxxxxxxxxx <mailto:bfenner@xxxxxxxxxxxxxxxx>




--
 PRIVACY WARNING: For auditing purposes, a copy of this message has been
 saved in a permanent database.