Populating z30_inventory_number with counter value from util g/2 (z52)

• Article Type: General
• Product: Aleph
• Product Version: 20

Description:
How can we populate the z30_inventory_number with a counter value from util g/2 (z52)?

Resolution:
If you want to populate the z30_inventory_number with a unique number from the z52 -- let's say you want to continue using "i" as the prefix --, then you would add an entry like this to util g/2 (the z52):

Sequence Name Value Suppress Type Prefix

27. i 4533140 y S i

{where "i4533140" is the max (z30_inventory_number) }

and then you'd place the following in the xxx01/tab/import/tab_96_def for p_file_96:

Z30-INVENTORY-NUMBER xxxxx i

and something similar for p_manage_50.

And a GUI operator would enter "?i" in the

This is based on the following code (from the pc_item_c0917 program):

IF TAB100-INVENTORY-NUMBER = "Z52"
THEN
IF Z30-INVENTORY-NUMBER (1: 1) = "?"
THEN
MOVE Z30-INVENTORY-NUMBER (2: ) TO Z52-NAME

MOVE 20 TO L
CALL "pic_to_lower" USING
Z52-NAME
L
END-CALL

CALL "get_sequence" USING
ACTIVE-LIBRARY
"NEXT"
Z52-SEQ-NUMBER
Z52-ERROR-CODE
END-CALL

• Article last edited: 10/8/2013