midrange.com code scratchpad
Name:
UDF to Wrap existing call
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
11/19/2021 12:07:16 am
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1.   ctl-opt nomain  ;
  2.  
  3.   dcl-proc GetPPKQty export ;
  4.     dcl-pi GetPPKQty int(5);
  5.       ppManifest zoned(8) const ;
  6.       ppInvoice char(16) const;
  7.     end-pi ;
  8.  
  9.     dcl-s outPcs int(5) ;
  10.  
  11.   Dcl-Pr WHSO627R ExtPgm;
  12.     *n  char(8) const;
  13.     *n  char(16) const;
  14.     *n  char(6 );
  15.     *n  char(6 );
  16.     *n  char(6 );
  17.     *n  char(3 );
  18.   end-Pr;
  19.  
  20.   dcl-s pfQty     char(6);
  21.   dcl-s pfWeight  char(6);
  22.   dcl-s pfPieces  char(6);
  23.   dcl-s pfppk     char(3);
  24.   dcl-s wkManifest char(8);
  25.  
  26.   wkManifest = %char(ppManifest);
  27.  
  28.   whso627r(wkManifest:ppInvoice:pfQty:pfWeight:pfPieces:pfppk);
  29.  
  30.   outPcs = %dec(pfPieces:5:0);
  31.     return outPcs ;
  32.  
  33.   end-proc ;
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css