Carolyn,
It's 12.6 so I did not find the SLOT code. Also, checked in panel, these volumes do have slot numbers assigned to them.
I tried use ROBOT_TYPE and I did not get any syntax error, but the output still shows virtual volumes.
Here's a snapshot of the code that has NOPICK statements, I added my code for ROBOT_TYPE. I used VIBM without and with leading blanks to make it 8 char long.
GOTO VE1504A (VAULT_OUT_SUBCODE NOT= VAULT_FROM_SUBCODE) | |
GOTO VE1504A (OUTCODE NOT= VAULT_FROM_AREA) | |
GOTO NOPICK (NEW_SLOT = VAULT_FROM_SLOT) | |
GOTO NOPICK (ROBOT_TYPE = 'VIBM') | | |
GOTO VE1505 (VAULT_FROM_SLOT > 0) | |
GOTO VE1504F | |
VE1504A: | |
| GOTO VE1505 (VAULT_FROM_AREA_1 > ' ') | |
| GOTO NOPICK (OUTCODE = ' LIB') | |
| GOTO NOPICK (OUTCODE = ' VMS') | |
| GOTO NOPICK (OUTCODE = 'LIBR') | |
VE1504F: | |
| SET VAULT_FROM_AREA = 'LIBR' | |
| GOTO PICK | |
VE1505: | |
| GOTO NOPICK (VAULT_FROM_AREA = 'LIBR' AND OUTCODE_1 <= ' ') |
| GOTO PICK | |
NOPICK: | |
| SET SELECT_SW = 'N' | |
| GOTO CONT | |
PICK: | |
| SET SELECT_SW = 'Y' | |
CONT: | |
IF VAULT_FROM_AREA_1 = ' ' | |
SET OLD_VAULT = 'LIB ' | |
ELSE | |
SET OLD_VAULT = VAULT_FROM_AREA | |
ENDIF | |
IF OUTCODE_1 = ' ' | |
SET NEW_VAULT = 'LIBRARY' | |
ELSE | |
SET NEW_VAULT = OUTCODE | |
ENDIF | |
SET FSUB = VAULT_OUT_SUBCODE | |
| |
SET FUNCTION = 'TO_EXTERNAL' | |
CALL CTSEDATE USING FUNCTION,P_CDATE,CDATE,DATE_FMT
CALL CTSEDATE USING FUNCTION,P_EXPDT,EXPDT,DATE_FMT