Sign in

docs Examples

os_api_h

os_api_h

      /if not defined(OS_API_H)
      /define OS_API_H
      
      /if not defined(QUSEC)
      /define QUSEC
      /copy QSYSINC/QRPGLESRC,QUSEC
      /endif

     D listDatabaseRelations...
     D                 PR                  extpgm('QDBLDBR')
     D   userspace                   20A   const
     D   format                       8A   const
     D   filename                    20A   const
     D   member                      10A   const
     D   recordformat                10A   const
     D   error                             likeds(QUSEC)

     D listJobs        PR                  extpgm('QUSLJOB')
     D   userspace                   20A   const
     D   format                       8A   const
     D   qualJobName                 26A   const
     D   status                      10A   const
     D   errorCode                32767A   options(*varsize)
     D   jobType                      1A   const options(*nopass)
     D   numFldsToRtn                10I 0 const options(*nopass)
     D   fldsToRtn                   10I 0 const options(*nopass)

     D listFileMembers...
     D                 PR                  extpgm('QUSLMBR')
     D  userspace                    20A   const
     D  format                        8A   const
     D  filename                     20A   const
     D  member                       10A   const
     D  ovrProcessing                 1A   const
     D  error                              likeds(QUSEC) options(*nopass)

     D listObjects     PR                  extpgm('QUSLOBJ')
     D  userspace                    20A   const
     D  format                        8A   const
     D  objName                      20A   const
     D  objType                      10A   const
     D  apiError                           likeds(QUSEC) options(*nopass)
     D  objAut                       64A   options(*varsize : *nopass)
     D  selOmit                      64A   options(*varsize : *nopass)

     D listRecordFormats...
     D                 PR                  extpgm('QUSLRCD')
     D  userspace                    20A   const
     D  format                        8A   const
     D  filename                     20A   const
     D  ovrProcessing                 1A   const
     D  error                              likeds(QUSEC) options(*nopass)

     D retrieveJobInformation...
     D                 PR                  extpgm('QUSRJOBI')
     D   receiver                 65535A   options(*varsize)
     D   recLength                   10I 0 const
     D   format                       8A   const
     D   qualJobName                 26A   const
     D   intJobId                    16A   const
     D   error                             likeds(QUSEC) options(*nopass)

      /endif