| Symbol | Description | Uses |
| pkgUpc | PKG name (Upper case) | 5 |
| File | Line number | Procedure | Code |
| ./model/src/packages_unused_msg.F | 49 | PACKAGES_UNUSED_MSG |
CHARACTER*(MAX_LEN_MBUF) pkgLwc, pkgUpc |
| ./model/src/packages_unused_msg.F | 67 | PACKAGES_UNUSED_MSG |
pkgUpc = sw_name(4:iLen1) |
| ./model/src/packages_unused_msg.F | 68 | PACKAGES_UNUSED_MSG |
CALL UCASE(pkgUpc(1:iLen)) |
| ./model/src/packages_unused_msg.F | 73 | PACKAGES_UNUSED_MSG |
pkgUpc = 'UNKNOWN' |
| ./model/src/packages_unused_msg.F | 76 | PACKAGES_UNUSED_MSG |
WRITE(caller_sub,'(2A)') pkgUpc(1:iLen), '_READPARMS' |