*===============================================================
      *  Source Name: reptdistrm - Report Distribution Procedures
      *
      *  Desc:     This module contains procedures used to retrieve report
      *            distribution information.
      *
      *===============================================================
     h NoMain ExprOpts(*ResDecPos) Option(*SrcStmt:*NoDebugIO)
      *===============================================================
     d #rtvsplfdist    pr                  like(splfdistds)
     d  splfname                     10a
      *
     d splfdistds      ds
     d  rdoutq                       10a
     d  rdformtype                   10a
     d  rdcopies                      3s 0
     d  rdsaveflag                    5a
     d  rduserdata                   10a
      *===============================================================
      *  Procedure:   #rtvsplfdist - Retrieve Spooled File Distribution
      *       Input parms:
      *            Spooled File Name
      *       Output parms:
      *            None
      *       Return Value:
      *            Return Data Structure
      *===============================================================
     p #rtvsplfdist...
     p                 b                   export
      *===============================================================
     d #rtvsplfdist    pi                  like(splfdistds)
     d  splfname                     10a
      *===============================================================
      /free

         // Clear Return Data Structure
                   clear splfdistds;

      /end-free

     c/exec sql
     c+ select rdoutqname,
     c+        rdformtype,
     c+        rdcopies,
     c+        rdsaveflag,
     c+        rduserdata
     c+   into :splfdistds
     c+   from reptdistpf
     c+  where rdsplfname = :splfname
     c/end-exec

      /free

         // Return Value
                   return splfdistds;

      /end-free
      *===============================================================
     p                 e
      *=============================================================== 
      ***  CRTSQLRPGI OBJ(library/REPTDISTRM)
      ***             SRCFILE(library/QRPGLESRC)
      ***             SRCMBR(REPTDISTRM)
      ***             OBJTYPE(*MODULE)
      ***
      ***  CRTPGM PGM(library/REPTDISTPG)
      ***         MODULE(library/REPTDISTCM library/REPTDISTRM)
      ***         ACTGRP(actgrp)