QYASPOL API Problem

["Chris Beck" <CBeck@xxxxxxxxxxxx>]

--
Can any one see what I am doing wrong here I have been racking my brain all 
afternoon and can see it.

I get a CPF24B4 - Severe error while addressing parameter list. From the Error 
Code of the API.

Thanks

Chris Beck


D QYASPOL         PR                  ExtPgm('QYASPOL')
D  PR_Rcvr                      64
D  PR_RcvLen                     4B 0
D  PR_LstInfo                   80
D  PR_NbrRcds                    4B 0
D  PR_NbrFltr                    4B 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              4B 0 Inz(64)
D AS_LstInfo      s             80
D AS_NbrRcds      s              4B 0 Inz(1)
D AS_NbrFltr      s              4B 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