Skriv denne kode i et CL program i APFTOOLS/APFSRC med navnet SNDFAXARC :

   PGM        PARM(&FUNC &ARCID &ORIG &ITYPE &SPLCRT &FILE +  
               &JOB &JOBUSR &JOBNBR &SPLNBR &OVLFPG +        
              &OVLFPL &OVLOPG &OVLOPL &FLTNA1 &FLTVA1 +     
               &FLTNA2 &FLTVA2 &FLTNA3 &FLTVA3 &RTNCOD)                                                                  

 DCL        VAR(&FUNC) TYPE(*CHAR) LEN(1) /* Function c */  
  DCL        VAR(&ARCID) TYPE(*CHAR) LEN(10) /* Archi. id */ 
 DCL        VAR(&ORIG) TYPE(*CHAR) LEN(5) /* Origin */      
  DCL        VAR(&ITYPE) TYPE(*CHAR) LEN(25) /* Itm. type */ 
 DCL        VAR(&SPLCRT) TYPE(*DEC) LEN(9) /* splf crt  */  
 DCL        VAR(&FILE) TYPE(*CHAR) LEN(10) /* Splf name */  
  DCL        VAR(&JOB) TYPE(*CHAR) LEN(10) /* Job name */    
  DCL        VAR(&JOBUSR) TYPE(*CHAR) LEN(10) /* Job user */ 
 DCL        VAR(&JOBNBR) TYPE(*CHAR) LEN(6) /* Job no. */   
 DCL        VAR(&SPLNBR) TYPE(*DEC) LEN(5) /* Splf no. */   
 DCL        VAR(&OVLFPG) TYPE(*CHAR) LEN(10) /* Ovl. 1 pg*/ 
 DCL        VAR(&OVLFPL) TYPE(*CHAR) LEN(10) /* Ov. 1 lib*/
 DCL        VAR(&OVLOPG) TYPE(*CHAR) LEN(10) /* Ovl. x pg*/
 DCL        VAR(&OVLOPL) TYPE(*CHAR) LEN(10) /* Ov. x lib*/
 DCL        VAR(&FLTNA1) TYPE(*CHAR) LEN(10) /* Flt 1 nam*/
 DCL        VAR(&FLTVA1) TYPE(*CHAR) LEN(25) /* Flt 1 val*/
 DCL        VAR(&FLTNA2) TYPE(*CHAR) LEN(10) /* Flt 2 nam*/
 DCL        VAR(&FLTVA2) TYPE(*CHAR) LEN(25) /* Flt 2 val*/
 DCL        VAR(&FLTNA3) TYPE(*CHAR) LEN(10) /* Flt 3 nam*/
 DCL        VAR(&FLTVA3) TYPE(*CHAR) LEN(25) /* Flt 3 val*/
 DCL        VAR(&RTNCOD) TYPE(*DEC) LEN(3) /* Return co */                                                          

  FAX/SNDSPLFITP FILE(&FILE) JOB(&JOBNBR/&JOBUSR/&JOB) +   
               SPLNBR(&SPLNBR)                              

  ENDPGM 

Kompiler.
 
Stående i MultiArchive menuen gøres følgende :
vælg menu pkt.                      50. Product administration
Derefter menu pkt.                      1.Work with system profile
 
Skriv 2 ud for *DFT profile og tryk enter.
Bladre en side ned og ret  så billedet ser sådan ud :
------------------------------------------------------------------------------------------
  Can be send by fax . . . . .   Y   Y=Yes  N=No                              
                                                                              
  Default fax program  . . . .   SNDFAXARC    Send fax from Multi Archive     
    Library  . . . . . . . . .   APFTOOLS     InterForm Tools - System & Met  
  Default fax mask 1. page . .                                                
    Library  . . . . . . . . .                                                
  Default fax mask other . . .                                                
    Library  . . . . . . . . .                                                
                                                                              
  OV/400 Integration   . . . .   0   0=None                                   
                                     1=Journal                                
                                     2=File                                   
-----------------------------------------------------------------------------------------
 
Tryk enter og gå tilbage til hovedmenuen.
vælg menu pkt.                      51. Archive administration
Derefter menu pkt.                      3. Work with item types
 
Find den document type der skal faxes og skriv 2 ud for, tryk enter.
Tryk F13 to gange og ret det fremkomne billede så det sådan ud :
------------------------------------------------------------------------------------------
Can be send by fax . . . . .   Y     Y=Yes  N=No                          
                                                                          
Fax program  . . . . . . . .   SNDFAXARC    Send fax from Multi Archive   
  Library  . . . . . . . . .   APFTOOLS     InterForm Tools - System & Met
Fax mask 1. page . . . . . .                                              
  Library  . . . . . . . . .                                              
Fax mask others  . . . . . .                                              
  Library  . . . . . . . . .                                              
                                                                          
Transfered values                                                         
  Information 1  . . . . . .                                              
  Information 2  . . . . . .                                              
  Information 3  . . . . . .                                              
                                                                          
Paper size for fax . . . . .   3                                          
------------------------------------------------------------------------------------------
 
Tryk Enter.
 
Nu skulle produktet være klar til at faxe.
Husk at forlade MultiArchive helt og gå ind igen før der prøves.