Trilobyte Software Systems

WTXSAMP2.C
/****** Beginning of sample code WTXSAMP2.C  **************************************/
/************************************************************************/
/*                Technical Note   WTXSAMP2.C                   */                                                                   
/*     A piece of sample code to clarify the technote File Transfer   
************************************************************************/              
#include "windows.h"            
#include "memory.h"
#include "stdio.h"
 
// Globals
#define         gAPPLNAME    "WTSample"
#define         eXfr_APIXLAT 0x4050
#define         eXfr_NOMEMRY 0x4061
 
unsigned int    gRETURN;
unsigned char   gMSG[120];
unsigned char   gERRORINFO[255];
HANDLE          gHDLL; 
 
LRESULT CALLBACK fWndProc(HWND, unsigned int, WPARAM, LPARAM);
void PASCAL fSetupAPIError(HWND ,int);
 
int PASCAL WinMain(HANDLE hInstance,
                   HANDLE hPrevInstance,
                   LPSTR  lpCmdLine,
                   int    nCmdShow)
{
    WNDCLASS        vWndClass;
    unsigned int    vPVal;
    unsigned int    vRVal;
    unsigned int    vType;
    unsigned int    vErrCode;
    unsigned char   vExec[120]; 
     
    BOOL            vBeg, vEnd, vPgm, vErr;
    MSG             vMsg;
    
// Variables we'll reference are now defined, so let's get started.
 
// First, we'll build a window so that we will be able to get messages
//   from the WinTran program.  We don't have to show the window -- in 
//   fact, we won't.
 
    memset(&vWndClass,0,sizeof(WNDCLASS));
    vWndClass.lpfnWndProc = fWndProc; 
    vWndClass.hInstance = hInstance; 
    vWndClass.hCursor = LoadCursor(NULL, IDC_ARROW);
    vWndClass.lpszClassName = "WTSAMPLE"; 
 
    gRETURN = RegisterClass (&vWndClass);
    if (gRETURN == 0)
       {
       // Error in Registering Class
       MessageBeep(0);
       MessageBox(NULL, "RegisterClass! - ERROR", gAPPLNAME, MB_OK | MB_ICONSTOP);
       return(TRUE);
       }
 
    gHDLL = CreateWindow("WTSAMPLE",NULL,WS_POPUP,1,1,1,1,NULL,NULL,hInstance,NULL);
    if (gHDLL == 0)
       {
       // Error in Creating Window
       MessageBeep(0);
       MessageBox(NULL, "CreateWindow! - ERROR", gAPPLNAME, MB_OK | MB_ICONSTOP);
       return(TRUE);
       }
 
// This is the value we'll use with the command line "/P" option
//   to identify OUR messages from the file transfer program.  This
//   value will also appear as the first 4 characters in our entries
//   in the log file.
 
    vPVal=1000;
 
// This is a number to add to the Request Name the so that the program may loop thru
//   and add 1 to this number and and execute different requests.
 
    vRVal=0;   
 
// Since we're going to be monitoring for messages from the file
//   transfer program, we must register its message type before
//   executing the transfer program.
 
    vType=RegisterWindowMessage("XfrPgmCtlMsg");
    if (vType == 0)
       {
       // Error in Register Window Message
       MessageBeep(0);
       MessageBox(NULL, "RegisterWindowMessage! - ERROR", gAPPLNAME, MB_OK | MB_ICONSTOP);
       return(TRUE);
       }
 
// Now we'll construct the command line.  All parms are 
//   case-insensitive.  Note that we'll need to change some values
//   if we rename the file transfer program or its directory (or
//   if we ever want to execute a different transfer request file).
 
///////////////// ********************************************* //////////////////////////////////
// Also note that one file transfer is done before starting another one                         //
//   the program WAS written this way on purpose.  If you try and WIN_EXEC multiple transfers   //
//   they will work as long as you don't use and modal dialogues to display errors, but if you  //
//   (like this programd does) messages WILL be lost when the dialogue is put up.               //
//   Also this way you can write the program to do certain things if a transfer doesn't         //  
//   finish correctly.                                                                          //
///////////////// ********************************************* //////////////////////////////////
 
Again:
 
    vPVal = vPVal + 1; //   change the "/P" option that identifies OUR messages
 
    if (vRVal ==2) // if it is the third request make it a transfer to the AS/400
 
        {   // Make sure to change Path to Your location of Transfer program
        sprintf(vExec,"D:\\DEV\\wt32\\WT400XFR.EXE XFERREQ%0d.P2A /P%04d",vRVal,vPVal);
        }
    else    // all other requests are downloads
 
        {   // Make sure to change Path to Your location of Transfer program
        sprintf(vExec,"D:\\DEV\\wt32\\WT400XFR.EXE XFERREQ%0d.A2P /P%04d",vRVal,vPVal);
        }
 
// Now We're ready to evoke the file transfer program.  Let's do it.
 
    gRETURN = WinExec(vExec,SW_HIDE);
 
    if (gRETURN == ERROR_BAD_FORMAT)
       {
       // Display error message for Bad format!
       MessageBeep(0);
       MessageBox(NULL, "WinExec CMD! - BAD_FORMAT", gAPPLNAME, MB_OK | MB_ICONSTOP);
       return(TRUE);
       }
 
    if (gRETURN == ERROR_FILE_NOT_FOUND)
       {
       // Display error message for File not Found!
       MessageBeep(0);
       MessageBox(NULL, "WinExec CMD! - FILE_NOT_FOUND", gAPPLNAME, MB_OK | MB_ICONSTOP);
       return(TRUE);
       }
    if (gRETURN == ERROR_PATH_NOT_FOUND)
       {
       // Display error message for path not found!
       MessageBeep(0);
       MessageBox(NULL, "WinExec CMD! - PATH_NOT_FOUND", gAPPLNAME, MB_OK | MB_ICONSTOP);
       return(TRUE);
       }
 
//  Note that we set the second parameter to SW_HIDE.  This is 
//   used to circumvent WinTran's password protection, just in case.
//   We didn't want the transfer to hang, waiting for someone
//   to enter a password -- after all, we might have been started
//   automatically by a "scheduler" program.  One other note: 
//   32-bit programs might use the "CreateProcess" function, instead
//   of "WinExec", to evoke another program.  If so, the "STARTUPINFO"
//   structure would contain the SW_HIDE parameter.
 
vRVal = vRVal + 1; // increment counter of number of transfers submitted
 
// Assuming that WinExec worked, we're now going to enter our message
//   loop to monitor the progress of the transfer.  Here we go...
 
    vBeg=vEnd=vPgm=vErr=0;              // Clear our flags
    while (GetMessage(&vMsg,0,0,0))     // Retrieve message(s)
    {
        if (vMsg.message == vType)          // A message from WinTran?
        {                                   // It is!!                                
            if (vMsg.wParam == vPVal)           // One of ours?
            {                                   // It is, check further.
                if (LOWORD(vMsg.lParam) == 0)   // Started Transfer?
                    vBeg = TRUE;                    // Yep, set a flag
                if (LOWORD(vMsg.lParam) == 1)   // Transfer Ended?
                    { 
                    vEnd = TRUE;                    // Yep, set a flag
                    }
                if (LOWORD(vMsg.lParam) == 2)   // Transfer Error?
                    {                               // Yep, set a flag &
                    vErr = TRUE;                    // Get possible code
                    vErrCode = (unsigned int)HIWORD(vMsg.lParam); 
                    }
                if (LOWORD(vMsg.lParam) == 3)   // Did WinTran even start?
                    {  
                    vPgm = TRUE;                    // Nope, set a flag
                    }  
            }
        }
 
        // If not a message from WinTran, just process like any other
        //   Windows message.
 
        else
            {
            TranslateMessage(&vMsg);
            DispatchMessage(&vMsg);
            }
 
        // Now that we're done processing messages, let's check our flags.
 
        if (vBeg)               // OK, the transfer started.  If we were
            {                   //   ambitious, we might want to start
            }                   //   a timer or sumpin, just for grins.
               
        if (vEnd)               // Has the transfer ended?  if so 
            {                   //   end what was started for this tranfer and
             if (vRVal >= 4)         // are all transfers done?, if so
                 PostQuitMessage(0); //   we can exit.
             else   
                 goto Again;         // else do the next transfer                        
            }                   //   also do what ever processing is required.
 
        if (vErr)               // If we've encountered an error, we
            {                                       //   may want to do something with the
            fSetupAPIError(hInstance, vErrCode);    //   information, who knows?
            MessageBeep(0);              
            MessageBox(NULL, gERRORINFO, gAPPLNAME, MB_OK | MB_ICONSTOP);
            
            if (vRVal >= 4)         // are all transfers done?, if so
                PostQuitMessage(0); //   we can exit.
            else   
                goto Again;         // else do the next transfer                  
            }
 
   
    }       
    return(0);      // Aw, someone posted a quit message.  We could, of
                    //  course, still do something useful with this program
}                   //  but, instead, we'll just exit;
 
/****************************************************************************/
/*  fSetupAPIError - Get the additional error information, call error dialog*/
/****************************************************************************/
 
void PASCAL fSetupAPIError(HWND hInstance,int vErrCode)
{
int vRECORDCNT = 0;
unsigned char   vWRKSTR[255];
unsigned char   vTEMPSTR[255];
 
if (vErrCode == -1) // Load No Memory error message
    {
    LoadString(hInstance,eXfr_NOMEMRY,vTEMPSTR,255);
    }
else if (vErrCode < 256) // Error in field # (1 - 256)
        {
        LoadString(hInstance,eXfr_APIXLAT,vWRKSTR,255);
        sprintf(vTEMPSTR,vWRKSTR,vErrCode,vRECORDCNT);
        }
else
    {
    LoadString(hInstance,vErrCode,vTEMPSTR,255); // Load rest of errors from string table
    }
 wsprintf((LPSTR)gERRORINFO, "Error code: x%04X\n\r%s", vErrCode, (LPSTR) vTEMPSTR); // display error code and message   
}
 
// Just a minimal window procedure follows.
 
LRESULT CALLBACK fWndProc(HWND vWnd, unsigned int iMessage, 
                          WPARAM wParam, LPARAM lParam)
{
    return DefWindowProc (vWnd, iMessage, wParam, lParam) ;
}
 
 
/****** End of sample code WTXSAMP2.C  **************************************/
 
 
 
/****** Beginning of sample code WTXSAMP2.RC  *******************************/
 
/************************************************************************/
/*                Synapse Communications Technical Note                 */
/*                    WTXSAMP2.RC  -- January 28, 1996                  */
/*                                                                      */
/*     A piece of sample code to clarify the technote WTXFER.DOC        */
/*                              RESOURCE                                */
/************************************************************************/
 
#include "windows.h"
 
// API and disk I/O error messages
#define eXfr_API0103Msg     "Internal error#0 - contact technical support."
#define eXfr_API0300Msg     "Untranslatable data found in transferred record."
#define eXfr_API0302Msg     "Untranslatable data found in transferred record."
#define eXfr_API0400Msg     "Warning - the AS/400 member will be overwritten."
#define eXfr_API2000Msg     "Maximum number of Transfer Requests are active."
#define eXfr_API2001Msg     "Transfer Request length length not valid."
#define eXfr_API2002Msg     "Transfer Request character cannot be translated."
#define eXfr_API2003Msg     "Untranslatable numeric data found."
#define eXfr_API2004Msg     "Numeric data is too large for field."
#define eXfr_API2005Msg     "Record length given is incorrect."
#define eXfr_API2007Msg     "Null map offset is incorrect"
#define eXfr_API2008Msg     "Total length of record exceeds 4096 bytes."
#define eXfr_API2009Msg     "Internal error#1 - contact technical support."
#define eXfr_API2010Msg     "Internal error#2 - contact technical support."
#define eXfr_API2011Msg     "Internal error#3 - contact technical support."
#define eXfr_API2012Msg     "Internal error#4 - contact technical support."
#define eXfr_API2013Msg     "Internal error#5 - contact technical support."
#define eXfr_API2019Msg     "Internal error#6 - contact technical support."
#define eXfr_API2020Msg     "Internal error#7 - contact technical support."
#define eXfr_API2021Msg     "Internal error#8 - contact technical support."
#define eXfr_API2022Msg     "Internal error#9 - contact technical support."
#define eXfr_API2023Msg     "Internal error#A - contact technical support."
#define eXfr_API2024Msg     "Internal error#B - contact technical support."
#define eXfr_API2025Msg     "Internal error#C - contact technical support."
#define eXfr_API2026Msg     "Internal error#D - contact technical support."
#define eXfr_API2027Msg     "Internal error#E - contact technical support."
#define eXfr_API2028Msg     "Internal error#F - contact technical support."
#define eXfr_API2029Msg     "PCSWIN buffer space exhausted."
#define eXfr_API2030Msg     "Options statement not supported on this system."
#define eXfr_API3000Msg     "Error detected by the host system.."
#define eXfr_API3100Msg     "Error detected by the host system."
#define eXfr_API5042Msg     "The router has not been started."
#define eXfr_API5048Msg     "Connection to the host system failed."
#define eXfr_API5050Msg     "System name is incorrect or inactive."
#define eXfr_API5052Msg     "System program not found."
#define eXfr_API5054Msg     "System program ended unexpectedly."
#define eXfr_API5056Msg     "Security error occurred on the host system."
#define eXfr_API5058Msg     "Host system is not a supported system."
#define eXfr_API5060Msg     "Host system is at an unsupported version, release or modification level."
#define eXfr_API5062Msg     "Contact with the host system ended."
#define eXfr_API5066Msg     "System resource failure."
#define eXfr_API5067Msg     "The conversation was ended unexpectedly."
#define eXfr_API5071Msg     "Insufficient memory."
#define eXfr_API5310Msg     "PCSWIN is not loaded."
#define eXfr_API5311Msg     "Cannot run in Windows real mode."
#define eXfr_API5400Msg     "Operating system error."
#define eXfr_API9999Msg     "Undefined Error: %0d - contact technical support."
 
#define eXfr_APIXLATMsg     "Unable to translate field %0d in record %0ld."
#define eXfr_RDFOPENMsg     "Error opening Source PC file."
#define eXfr_RDFREADMsg     "Error reading Source PC file."
#define eXfr_RDFNOFDMsg     "Source PC file has invalid format."
#define eXfr_WDFOPENMsg     "Error opening Target PC file."
#define eXfr_WDFWRITMsg     "Error writing Target PC file."
#define eXfr_FDFOPENMsg     "Error opening PC File Description File."
#define eXfr_FDFWRITMsg     "Error writing PC File Description File."
#define eXfr_FDFREADMsg     "Error reading PC File Description File."
#define eXfr_FDFNOFDMsg     "Not a valid PC File Description File."
#define eXfr_FDNOSAVMsg     "Invalid SAVE file format."
#define eXfr_NOMEMRYMsg     "Unable to allocate/free Windows memory."
#define eXfr_TOPCWRNMsg     "Warning - the target PC file will be overwritten."
 
 
STRINGTABLE
    BEGIN
    0x0104,    eXfr_RDFOPENMsg
    0x0105,    eXfr_RDFREADMsg
    0x0106,    eXfr_RDFNOFDMsg
    0x0107,    eXfr_WDFOPENMsg
    0x0108,    eXfr_WDFWRITMsg
    0x0109,    eXfr_FDFOPENMsg
    0x010A,    eXfr_FDFWRITMsg
    0x010B,    eXfr_FDFREADMsg
    0x010C,    eXfr_FDFNOFDMsg
    0x010D,    eXfr_FDNOSAVMsg
 
    0x4050,    eXfr_APIXLATMsg
    0x4061,    eXfr_NOMEMRYMsg
 
 
    0x0103,    eXfr_API0103Msg
    0x0300,    eXfr_API0300Msg
    0x0302,    eXfr_API0302Msg
    0x0400,    eXfr_API0400Msg
    0x2000,    eXfr_API2000Msg
    0x2001,    eXfr_API2001Msg
    0x2002,    eXfr_API2002Msg
    0x2003,    eXfr_API2003Msg
    0x2004,    eXfr_API2004Msg
    0x2005,    eXfr_API2005Msg
    0x2007,    eXfr_API2007Msg
    0x2008,    eXfr_API2008Msg
    0x2009,    eXfr_API2009Msg
    0x2010,    eXfr_API2010Msg
    0x2011,    eXfr_API2011Msg
    0x2012,    eXfr_API2012Msg
    0x2013,    eXfr_API2013Msg
    0x2019,    eXfr_API2019Msg
    0x2020,    eXfr_API2020Msg
    0x2021,    eXfr_API2021Msg
    0x2022,    eXfr_API2022Msg
    0x2023,    eXfr_API2023Msg
    0x2024,    eXfr_API2024Msg
    0x2025,    eXfr_API2025Msg
    0x2026,    eXfr_API2026Msg
    0x2027,    eXfr_API2027Msg
    0x2028,    eXfr_API2028Msg
    0x2029,    eXfr_API2029Msg
    0x2030,    eXfr_API2030Msg
    0x3000,    eXfr_API3000Msg
    0x3100,    eXfr_API3100Msg
    0x5042,    eXfr_API5042Msg
    0x5048,    eXfr_API5048Msg
    0x5050,    eXfr_API5050Msg
    0x5052,    eXfr_API5052Msg
    0x5054,    eXfr_API5054Msg
    0x5056,    eXfr_API5056Msg
    0x5058,    eXfr_API5058Msg
    0x5060,    eXfr_API5060Msg
    0x5062,    eXfr_API5062Msg
    0x5066,    eXfr_API5066Msg
    0x5067,    eXfr_API5067Msg
    0x5071,    eXfr_API5071Msg
    0x5310,    eXfr_API5310Msg
    0x5311,    eXfr_API5311Msg
    0x5400,    eXfr_API5400Msg
    0x9999,    eXfr_API9999Msg
 END             
/****** End of sample code for WTXSAMP2.RC  **********************************************/
 
 
Below are sample A2P and P2A files and a copy of the data that is generated in WTXFRPGM.LOG
    The first request XFERREQ0.A2P has and error the other three will work. 
    Request XFERREQ2.P2A will work the first time but would need to be changed to
    update member to work on additional executions.
 
These files would be placed in your transfer directory!!
 
 
/********************   XFERREQ0.A2P FILE  Begin   ************************************/
[General]
Type=A2P
Description=WTSample Transfer Request for Test *PGM
SystemName=*Default
PCFileType=Text
FieldDesFile=
RetBlkRecs=yes
AllRecords=yes
FromRecord=1
ToRecord=1
 
[SavePCFileTo]
Type=*None
Name=C:\qapzcover.txt
 
[OutputFormatTo]
Type=*None
Name=*None
 
[Date]
Format=MDY
Separator=/
 
[Decimal]
IgnoreErrors=yes
Separator=.
 
[Time]
Format=USA
Separator=:
 
[Options]
RunIconized=no
ShowPercent=no
Notify=no
Exit=no
Warn=no
ToolBox=Tall
CharSet=ANSI
 
[HostFile]
Member01=qgpl/qapzcoverx
/********************   XFERREQ0.A2P FILE  End   ************************************/
 
 
 
/********************   XFERREQ1.A2P FILE  Begin   ************************************/
[General]
Type=A2P
Description=WTSample Transfer Request for Test *PGM
SystemName=*Default
PCFileType=Text
FieldDesFile=
RetBlkRecs=yes
AllRecords=yes
FromRecord=1
ToRecord=1
 
[SavePCFileTo]
Type=*None
Name=c:\qapzcover.txt
 
[OutputFormatTo]
Type=*None
Name=*None
 
[Date]
Format=MDY
Separator=/
 
[Decimal]
IgnoreErrors=yes
Separator=.
 
[Time]
Format=USA
Separator=:
 
[Options]
RunIconized=no
ShowPercent=no
Notify=no
Exit=no
Warn=no
ToolBox=Tall
CharSet=ANSI
 
[HostFile]
Member01=qgpl/qapzcover
/********************   XFERREQ1.A2P FILE  End  ************************************/
 
 
 
 
/********************   XFERREQ2.P2A FILE  Begin   ************************************/
[General]
Type=P2A
Description=Upload to AS/400 New file
SystemName=*Default
PCFileType=Text
FieldDesFile=
RetBlkRecs=yes
AllRecords=yes
FromRecord=1
ToRecord=1
ToHostMember=qgpl/qapzcoverz
FromPCFile=c:\qapzcover.txt
 
[SavePCFileTo]
Type=*None
Name=c:\qapzcover.txt
 
[OutputFormatTo]
Type=*None
Name=*None
 
[Date]
Format=MDY
Separator=/
 
[Decimal]
IgnoreErrors=yes
Separator=.
 
[Time]
Format=USA
Separator=:
 
[Options]
RunIconized=no
ShowPercent=yes
Notify=yes
Exit=no
Warn=yes
ToolBox=Tall
CharSet=ANSI
 
[HostFile]
Member01=qgpl/qapzcover
 
[Advanced]
HostCreation=New file and member
HostFileDes=
HostMemberDes=
HostFileType=Data
PCFileType=Text
PCRecordLen=92
HostFieldDefFile=qgpl/qapzcover
HostObjAuthority=Read/Write/Delete
 
/********************   XFERREQ2.P2A FILE  End  ************************************/
 
 
 
/********************   XFERREQ3.A2P FILE  Begin   ************************************/
[General]
Type=A2P
Description=WTSample Transfer Request for Test *PGM
SystemName=*Default
PCFileType=Text
FieldDesFile=
RetBlkRecs=yes
AllRecords=yes
FromRecord=1
ToRecord=1
 
[SavePCFileTo]
Type=*None
Name=c:\qapzcover.txt
 
[OutputFormatTo]
Type=*None
Name=*None
 
[Date]
Format=MDY
Separator=/
 
[Decimal]
IgnoreErrors=yes
Separator=.
 
[Time]
Format=USA
Separator=:
 
[Options]
RunIconized=no
ShowPercent=no
Notify=no
Exit=no
Warn=no
ToolBox=Tall
CharSet=ANSI
 
[HostFile]
Member01=qgpl/qapzcover
/********************   XFERREQ3.A2P FILE  End   ************************************/
 
 
/********************   Begining of Sample file WTXFRPGM.LOG   **********************/
1001 *Beg ---- 97.02.14/12:23:17 D:\DEV\WT32\XFERREQ0.A2P
1001 *Err 3000 97.02.14/12:23:30 D:\DEV\WT32\XFERREQ0.A2P
         Error detected by the host system..
1001 *End ---- 97.02.14/12:23:30 D:\DEV\WT32\XFERREQ0.A2P
1002 *Beg ---- 97.02.14/12:23:43 D:\DEV\WT32\XFERREQ1.A2P
1002 *End ---- 97.02.14/12:24:01 D:\DEV\WT32\XFERREQ1.A2P
1003 *Beg ---- 97.02.14/12:24:02 D:\DEV\WT32\XFERREQ2.P2A
1003 *End ---- 97.02.14/12:24:18 D:\DEV\WT32\XFERREQ2.P2A
1004 *Beg ---- 97.02.14/12:24:19 D:\DEV\WT32\XFERREQ3.A2P
1004 *End ---- 97.02.14/12:24:30 D:\DEV\WT32\XFERREQ3.A2P
/********************   End of Sample file WTXFRPGM.LOG   ***************************/