Process Steps of the OCL Program

This OCL (Operations Control Language) script appears to be a batch processing routine for an IBM midrange system (e.g., AS/400 or iSeries), designed to handle order entry posting. It manages order batches, performs checks, sorts data, authorizes credits, posts orders, handles cancellations/reactivations, unlocks records, and releases batches. The script uses placeholders like ?9? (likely a library prefix), ?20? (batch identifier), ?13? (mode selector: blank for standard order post, 'PP' for viscosity ASN posts, 'PM' for product moves posts), and ?USER?, ?WS? (user/workstation identifiers). The process is conditional and interactive, with pauses for user input and error handling.

The high-level steps are as follows:

1. Initial Activity Check:
2. Check if another instance of the process (ACTIVE-BB201) is running.

3. If active, display a message indicating the post is in progress, instruct the user to try again later, pause for cancellation input (press 0, Enter to cancel), and return/exit if active.

4. Order Batch Selection:

5. Set local variables for offsets and data (e.g., OFFSET-470 to '?13?', OFFSET-494 to '?USER?', OFFSET-502 to '?WS?', OFFSET-504 to 'P').
6. Based on ?13? value, set a display message (e.g., ' ORDER POST ' for blank, ' VISCOSITY ASN POSTS ' for 'PP', ' PRODUCT MOVES POSTS ' for 'PM').
7. Turn off switch 1 (for deleting a batch).
8. Load program BB001.
9. Define files BBBTCH and BBBTCHX (both labeled ?9?BBBTCH, shared disposition).
10. Run the program.
11. If input at location '121,6' is 'CANCEL', return/exit.

12. Evaluate P20 from input at '490,2'.

13. User Option to Cancel Posting:

14. Display 'ORDER ENTRY POST EXECUTING'.
15. Check if file ?9?BBOR?20? exists and has data.
16. If no data, display 'NO BATCH ?20? TO POST AT THIS TIME', pause with 'PROCEDURE IS CANCELLED', and jump to the end.

17. Pause for user input: Press ATTN, 2, Enter to cancel; press 0, Enter to continue. Set attributes to cancel-no, inquiry-yes.

18. Credit Authorization Preparation and Execution:

19. Load utility #GSORT.
20. Define input file as ?9?BBOR?20? (shared).
21. Define output file as ?9?BB198S (records 999000, extendable, retain job).
22. Run the sort with specific parameters:
    • Sort on fields like 21A, 3X 512 N.
    • Include conditions (e.g., positions 144-149 > C000000, 10-12 = C000).
    • Force sequence: Company (2-3), Customer (144-149), Order (4-9), Container (121-123), Seq# (10-12).
    • Drop full records (1-256 and 257-512).
    • Note: This sorts headers first, then marks, then details due to record type positioning.
23. End the sort.
24. Load program BB198.
25. Define multiple files (e.g., BBORTR as ?9?BB198S, BBORTA as ?9?BBOR?20?, BBORDRH as ?9?BBORDH, and others like BBORDRD, BBORDRO, BBORDRI, BBORDRB, BBORDRM, BICONT, ARCUST, GSCTUM, GSTABL, CUSORD, SHIPTO, GSPROD, all shared).
26. Define printer LIST on device P5, priority 0.

27. Run the program.

28. Order Entry Posting:

29. Load program BB201.
30. Define files (e.g., BBORTR as ?9?BBOR?20?, BBOTHS1 as ?9?BBOTHS1, BBOTDS1 as ?9?BBOTDS1, BBOTA1 as ?9?BBOTA1, BBTRTX as ?9?BBOX?20?, and many others like BBORDRH, BBORHS1, BBORDRD, BBORDS1, BBORDRM, BBORDRO, BBORDRI, BBORDRB, BBORA1, BBORTX, BICONT, ARCUST, GSCTUM, GSTABL, CUSORD, BBORCL, BBORHHS, BBORDHS, BBORMHS, GSPROD, BBOH, BBOHMS, all shared).
31. Define printers LIST on P5 (priority 0) and LISTOUT3 on PJ (priority 0).
32. Run the program.
33. Override database files (e.g., BBORTR to ?9?BBOR?20?, BBTRTX to ?9?BBOX?20?, BBOTHS1 to ?9?BBOTHS1, BBOTDS1 to ?9?BBOTDS1, BBOTA1 to ?9?BBOTA1).
34. Call external program BB104B with parameters ?9? and '0'.
35. Delete all overrides.

36. If ?13? is 'PP', skip to 'SKIP' tag; otherwise, call BB202 with parameters (,,,,,,,?9?,,,,,,,,,,,?20?) to create spool files for emailing orders on hold.

37. Remove Order Lockout Fields:

38. Display 'UNLOCKING OPEN ORDERS'.
39. Load program BB215.
40. Define files BBORTR as ?9?BBOR?20? and BBORDRH as ?9?BBORDH (both shared).

41. Run the program to unlock records in the open orders file.

42. Release Batch and Cleanup:

43. Jump to 'END' tag.
44. Set local OFFSET-475 to '?F'A,?9?BBOR?20?'?' (likely checking file attributes).
45. Load program BB005.
46. Define file BBBTCH as ?9?BBBTCH (shared).
47. Run the program to release the batch.
48. Blank all local variables.
49. Delete files BBOR?20? and BBOX?20? using GSDELETE utility from library ?9?.

External Programs Called

The script loads and runs several programs (via LOAD and RUN), calls others directly (via CALL), and references one in a comment. Here's the list:

• BB001: Loaded and run for order batch selection.

• GSORT: Loaded and run as a sorting utility for credit authorization preparation.

• BB198: Loaded and run for credit authorization processing.
• BB201: Loaded and run for the main order entry post.
• BB104B: Called (with parameters ?9? and '0') for open order cancellation or reactivation, archiving canceled orders.
• BB202: Called (with parameters ,,,,,,,?9?,,,,,,,,,,,?20?) conditionally if ?13? is not 'PP', to create spool files for emailing orders on hold.
• BB215: Loaded and run to remove order lockout fields.
• BB005: Loaded and run to release the batch.
• BB117: Referenced in a comment ("FOR CALLED PGM: BB117") but not explicitly called or loaded in this script.

Tables (Files) Used

The script defines numerous files (tables/datasets) across different steps, all with shared disposition (DISP-SHR) unless noted. Many are prefixed with ?9? (library) and use ?20? for batch-specific naming. Here's a comprehensive list, grouped by usage context for clarity:

Batch Selection:

• BBBTCH (label: ?9?BBBTCH)
• BBBTCHX (label: ?9?BBBTCH)

Credit Authorization (Sort):

• INPUT (label: ?9?BBOR?20?)
• OUTPUT (label: ?9?BB198S, records: 999000, extend: 999000, retain: J)

Credit Authorization (Main):

• BBORTR (label: ?9?BB198S)
• BBORTA (label: ?9?BBOR?20?)
• BBORDRH (label: ?9?BBORDH)
• BBORDRD (label: ?9?BBORDD)
• BBORDRO (label: ?9?BBORDO)
• BBORDRI (label: ?9?BBORDI)
• BBORDRB (label: ?9?BBORDB)
• BBORDRM (label: ?9?BBORDM)
• BICONT (label: ?9?BICONT)
• ARCUST (label: ?9?ARCUST)
• GSCTUM (label: ?9?GSCTUM)
• GSTABL (label: ?9?GSTABL)
• CUSORD (label: ?9?CUSORD)
• SHIPTO (label: ?9?SHIPTO)
• GSPROD (label: ?9?GSPROD)

Order Entry Post:

• BBORTR (label: ?9?BBOR?20?)
• BBOTHS1 (label: ?9?BBOTHS1)
• BBOTDS1 (label: ?9?BBOTDS1)
• BBOTA1 (label: ?9?BBOTA1)
• BBTRTX (label: ?9?BBOX?20?)
• BBORDRH (label: ?9?BBORDH)
• BBORHS1 (label: ?9?BBORHS1)
• BBORDRD (label: ?9?BBORDD)
• BBORDS1 (label: ?9?BBORDS1)
• BBORDRM (label: ?9?BBORDM)
• BBORDRO (label: ?9?BBORDO)
• BBORDRI (label: ?9?BBORDI)
• BBORDRB (label: ?9?BBORDB)
• BBORA1 (label: ?9?BBORA1)
• BBORTX (label: ?9?BBORTX)
• BICONT (label: ?9?BICONT)
• ARCUST (label: ?9?ARCUST)
• GSCTUM (label: ?9?GSCTUM)
• GSTABL (label: ?9?GSTABL)
• CUSORD (label: ?9?CUSORD)
• BBORCL (label: ?9?BBORCL)
• BBORHHS (label: ?9?BBORHHS)
• BBORDHS (label: ?9?BBORDHS)
• BBORMHS (label: ?9?BBORMHS)
• GSPROD (label: ?9?GSPROD)
• BBOH (label: ?9?BBOH) // For called PGM BB117
• BBOHMS (label: ?9?BBOHMS) // For called PGM BB117

Remove Order Lockout:

• BBORTR (label: ?9?BBOR?20?)
• BBORDRH (label: ?9?BBORDH)

Release Batch:

• BBBTCH (label: ?9?BBBTCH)

Note: Files like BBOR?20? and BBOX?20? are temporary/batch-specific and are deleted at the end via GSDELETE. Printers (LIST, LISTOUT3) are also defined but are output devices, not tables.