midrange.com code scratchpad
Name:
John Rusling
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
04/04/2012 01:48:30 pm
IP:
Logged
Description:
Test to see what this scratchpad does
Code:
  1.        //*********************************************************************
  2.        begsr @inzpgm;
  3.        //*********************************************************************
  4.  
  5.          // always inz logging, used for errs as well as useage/logging
  6.          log_Inz('TAX'  :*blanks :psds.Pgm :psds.User);
  7.          gQuaJob=%char(psds.Job#)+'/'+%trim(psds.User)+'/'+%trim(psds.Job);
  8.  
  9.          // Track program useage if indicated
  10.          //if PgmCtl.Useage = YES;
  11.            log_Add('Program useage, ' + gQuaJob +'.');
  12.          //endif;
  13.  
  14.  
  15.          if psds.Parms <> 2;
  16.            gErrMsg = '2 parms required for this pgm.';
  17.            exsr @exit;
  18.          endif;
  19.  
  20.          //-
  21.          // Insure dates passed in are cyymmdd valid
  22.          //-
  23.          test(de) *cymd piFrDt;
  24.          if not %error;
  25.            gDateFrom = piFrDt;
  26.          else;
  27.            gDateFrom = 0;
  28.          endif;
  29.          test(de) *cymd piToDt;
  30.          if not %error;
  31.            gDateTo   = piToDt;
  32.          else;
  33.            gDateTo   = 0;
  34.          endif;
  35.  
  36.        endsr;
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css