/******************************************************************************/
/*   NTXFER                                                                   */
/*                                                                            */
/*   This program creates a directory in the QNTC file system so that we can  */
/*   access the NT shares, expecially the share named NTXFER.  The CPYTOIMPF  */
/*   command is used to copy the contents of the QIWS/QCUSTCDT table into a   */
/*   text file right on the NT PC's hard drive.                               */
/*                                                                            */
/******************************************************************************/
PGM                                                                             
   /*  Mount the PC "server".  The user id and password of the program caller */
   /*  will be used for authority so they must be in synch.  The PC network   */
   /*  (NetBIOS) name in this case is P003253 and the shared directory is     */
   /*  NTXFER.                                                                */
   MD '/QNTC/P003253'                                                           
   MONMSG MSGID(CPFA0A0)                                                        
                                                                                
   /*  Copy To Import File as used here makes use of enhancements which allow */
   /*  the command to create a file and specify the code page (CCSID) of the  */
   /*  file and its data.  To get these enhancments on a V4R4 or V4R5 system  */
   /*  requires the following PTFs:                                           */
   /*    V4R4  SF61859 & SF61937                                              */
   /*    V4R5  SF62140 & SF62142                                              */
   CPYTOIMPF  FROMFILE(QIWS/QCUSTCDT) TOSTMF('/QNTC/P003253/NTXFER/CUST.TXT') + 
      MBROPT(*REPLACE) TOCCSID(1252) RCDDLM(*CRLF) DTAFMT(*FIXED) +             
      STRDLM(*NONE) STMFCODPAG(1252)                                            
   MONMSG  MSGID(CPF0000) EXEC(GOTO ERRMSG)                                     
NOERR:      SNDPGMMSG  MSG('COPY COMPLETED')                                    
   GOTO EXIT                                                                    
ERRMSG:     SNDPGMMSG MSG('Copy import file failed.  See joblog for details.')  
EXIT:                                                                           
ENDPGM