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:
- //*********************************************************************
- begsr @inzpgm;
- //*********************************************************************
-
- // always inz logging, used for errs as well as useage/logging
- log_Inz('TAX' :*blanks :psds.Pgm :psds.User);
- gQuaJob=%char(psds.Job#)+'/'+%trim(psds.User)+'/'+%trim(psds.Job);
-
- // Track program useage if indicated
- //if PgmCtl.Useage = YES;
- log_Add('Program useage, ' + gQuaJob +'.');
- //endif;
-
-
- if psds.Parms <> 2;
- gErrMsg = '2 parms required for this pgm.';
- exsr @exit;
- endif;
-
- //-
- // Insure dates passed in are cyymmdd valid
- //-
- test(de) *cymd piFrDt;
- if not %error;
- gDateFrom = piFrDt;
- else;
- gDateFrom = 0;
- endif;
- test(de) *cymd piToDt;
- if not %error;
- gDateTo = piToDt;
- else;
- gDateTo = 0;
- endif;
-
- endsr;
|
|
|