Re: Batch Labor Ticket Posting

[JTechmeier@xxxxxxxxxxxxxx]

BPCS 6.0.04MM AS/400 July99 Cumm

I have! Our shop people enter labor transactions throughout the day and we
batch post them as part of our nightly processing. Let me know if you have
any questions. Here's how we do it:

In our nightly processing CL:
- - - snip - - -

             CHGDTAARA  DTAARA(*LDA (1 8)) VALUE(&YYMMDD)

             CALL       PGM(SYS664) PARM("SYS664")
             SBMJOB     CMD(CALL PGM(SFCB03C)) JOB(SFCB03) +
                          JOBD(BPCSJOBD) INLLIBL(*JOBD)

- - - snip - - -

Notes:    &YYMMDD = current date...or in our case, yesterday's date as our
nightly processing runs at 3:00 a.m.
     SYS664 = set up BPCS security objects. * * * VERY IMPORTANT * * *
     SFCB03C = custom CL listed below.

- - - snip - - -

             UPDATE     SET((LTMNTM 234500) (LTMNUS '"OPERATOR"') (LTSTS +
                          '"1S"') (LTMNDT &YYMMDD)) SQL('from flt where
ltsts +
                          <> " P"')
             CALL       PGM(SFCB03) PARM(&W7PLST &YYMMDD)
             CALL       PGM(SFC620B) PARM(&RTPARM &W7PLST &W7SLST)

- - - snip - - -

Notes:    UPDATE = "ASC Sequel" product command. You could embed the SQL in
an RPG program if you don't have Sequel.
     SFCB03 = custom RPG listed below.

- - - snip - - -

      *===============================================================
      * Copyright (c) The Medalcraft Mint, Inc.   1999
      *===============================================================
      *
      *  Program ID     - SFCB03
      *  Descripton     - Populate Data Structure to call SFC620B
      *  Date Generated - 10/21/1999
      *
      *---------------------------------------------------------------


     d w7plst          ds           256
     d   w7user                      10
     d   w7date                       8p 0
     d   w7time                       6p 0
     d   w7jit                        1

     d w1plst          s            256
     d w1date          s              8


      *===============================================================
      * Main Processing
      *===============================================================

      * Set Static Parameters
     c                   movel     'OPERATOR'    w7user
     c                   move      w1date        w7date
     c                   z-add     234500        w7time
     c                   move      '0'           w7jit
     c                   movel     w7plst        w1plst

     c                   move      *on           *inlr


      *---------------------------------------------------------------
      * Initialization
      *---------------------------------------------------------------

     c     *inzsr        begsr

     c     *entry        plist
     c                   parm                    w1plst
     c                   parm                    w1date

     c                   endsr


John Techmeier
IT Director
The Medalcraft Mint, Inc.
Phone     (920) 499-4249
Fax  (920) 499-7092
jtechmeier@medalcraft.com





                    christoph-kraus@t
                    -online.de              To:     "BPCS-L@midrange.com" 
<BPCS-L@midrange.com>
                    (Christoph Kraus)       cc:
                    Sent by:                Fax to:
                    bpcs-l-admin@midr       Subject:     Batch Labor Ticket 
Posting
                    ange.com


                    12/03/01 03:34 PM
                    Please respond to
                    bpcs-l






BPCS 6.04 AS/400 MM

Has anybody out there tried to create a batch routine that posts any open
labor tickets,
i.e. SFC600 Action 9 in Batch Mode?

TIA

Regards
Christoph
_______________________________________________
This is the SSA's BPCS ERP System (BPCS-L) mailing list
To post a message email: BPCS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/bpcs-l
or email: BPCS-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/bpcs-l.