Asset Suite / PassPortGeek

Asset Suite ver 6. A problem can occur if the current user does not have a X230 Warehouse defined. Program tigi102.ccp paragraph A000- uses a COM variable to determine if the main cursor has been opened. If no I102 block 1 warehouse is populated, the user is prompted that a required field is missing. The next time paragraph A000- executes the COM variable has changed and an incorrect value is given to CURSOR-ARG-FORMAT-CODE.

A work around is to create a new switch variable in STACK-ARG and declare its value as off. When in paragraph A000- after it's determined that processing got here from D207, check the STACK-ARG variable for setting CURSOR-ARG-FORMAT-CODE. After opening the cursor set the STACK-ARG variable on.