Re: QYASPOL API Problem

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Change all of the "4B 0" (2-byte pseudo-binary integers) to "10I 0"
(4-byte binary integers) and try your program again.

(This is the 3rd time this exact issue has been asked on this list in the
past month or two.)


On Thu, 3 Oct 2002, Chris Beck wrote:

> --
> 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