QYASPOL - Open List of ASPs

Open List of ASPs
(not sure if QYASPOL is working as is, because of the '4B 0' vs '10I 0').


D QYASPOL         PR                  ExtPgm('QYASPOL')
D  PR_Rcvr                      64
D  PR_RcvLen                    10I 0
D  PR_LstInfo                   80
D  PR_NbrRcds                   10I 0
D  PR_NbrFltr                   10I 0
D  PR_FltrInf                   13
D  PR_FmtCode                    8
D  PR_Code                     116

D AS_FltrInf      DS            13
D  AS_FltSize             1      4B 0 Inz(9)
D  AS_FltKey              5      8B 0 Inz(1)
D  AS_SzFltD              9     12B 0 Inz(1)
D  AS_FltDta             13     13    Inz('1')

D AS_RcvLen       s             10I 0 Inz(64)
D AS_LstInfo      s             80
D AS_NbrRcds      s             10I 0 Inz(1)
D AS_NbrFltr      s             10I 0 Inz(1)
D AS_FmtCode      s              8    Inz('YASP0200')

DAS_RCVR          DS            64                    YASP0200
D QYAUMBER00              1      4B 0
D QYADISKS                5      8B 0                 Disks
D QYATOTAL                9     12B 0                 Total
D QYAAVAIL               13     16B 0                 Avail
D QYAPT                  17     20B 0                 Prot Total
D QYAPA                  21     24B 0                 Prot Avail
D QYAUT                  25     28B 0                 Unprot Total
D QYAUA                  29     32B 0                 Unprot Avail
D QYASS                  33     36B 0                 System Stg
D QYAOS                  37     40B 0                 Ovrflow Stg
D QYAEL                  41     44B 0                 Error Log
D QYAML                  45     48B 0                 Mach Log
D QYAMT                  49     52B 0                 Mach Trace
D QYAMSD                 53     56B 0                 M S Dump
D QYAOCODE               57     60B 0                 Microcode
D QYASHOLD               61     64B 0                 Threshold

D ER_Code         ds
D  ER_BytPrv              1      4b 0 Inz(116)
D  ER_BytAvl              5      8b 0
D  ER_MsgID               9     15
D  ER_ErNbr              16     16
D  ER_MsgDta             17    116

C                   CallP     QYASPOL(AS_Rcvr   :
C                                     AS_RcvLen :
C                                     AS_LstInfo:
C                                     AS_NbrRcds:
C                                     AS_NbrFltr:
C                                     AS_FltrInf:
C                                     AS_FmtCode:
C                                     ER_Code   )

C                   Eval      *InLr = *On

Thanks to Chris Beck



I was trying to make a program using API QYASPOL.
I抳e found a nice source on your website.
But there is a small error in the source:

The 慺ilter data?should be binary instead of character (with effects on the sizes),
it should be like this:

     D AS_FltrInf      DS            16
     D  AS_FltSize             1      4B 0 Inz(16)
     D  AS_FltKey              5      8B 0 Inz(1)
     D  AS_SzFltD              9     12B 0 Inz(4)
     D  AS_FltDta             13     16B 0 Inz(1)

Thanks to Jan Wijnants