BPX1FCA (fchaudit) example

The following code changes the audit for the standard input file to ReadFail, WriteFail and ExecFail. For the callable service, see fchaudit (BPX1FCA, BPX4FCA) — Change audit flags for a file by descriptor. For the data structure, see BPXYAUDT — Map flag values for chaudit and fchaudit. AMODE 64 callers use BPX4FCA (fchaudit) example.
                                              
         MVI   AUDTREADACCESS,AUDTREADFAIL                              
         MVI   AUDTWRITEACCESS,AUDTWRITEFAIL                            
         MVI   AUDTEXECACCESS,AUDTEXECFAIL                              
         MVI   AUDTRSRV,X'00'                                           
         SPACE ,                                                        
         CALL  BPX1FCA,              Change audit                      +
               (=A(STDIN_FILENO),    Input: File descriptor            +
               AUDT,                 Input: Audit flags, BPXYAUDT      +
               =A(0),                Input: 0 user, 1 security auditor +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------