BPX4PCT (pfsctl) example

The following code conveys a command to a Physical File System named ACMEFILE. ACMEFILE doesn't really exist; to actually run this example you would need a real PFS product that supports this function. For the callable service, see pfsctl (BPX1PCT, BPX4PCT) — Physical file system control. AMODE 31 callers use BPX1PCT (pfsctl) example.

                                              
         MVC   FSTYPE(8),=CL08'ACMEFILE'                                
         MVC   BUFLENA,=F'25'                                           
         MVC   BUFFERA(25),=CL25'COMPRESS(ON) CONVERT(OFF)'             
         MVC   COMMAND,=F'123'       PFS product defined command        
         SPACE ,                                                        
         CALL  BPX4PCT,              PFS Control                       +
               (FSTYPE,              Input: PFS Type Name              +
               COMMAND,              Input: Command                    +
               BUFLENA,              Input: Argument length            +
               BUFFERA,              Input/Output: Argument buffer     +
               RETVAL,               Return value: product defined     +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------