++APAR(ASZ3423). /*--------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD.2007

ASZ3423 060914 61VNAB DD ASEB200 V220 INCORROUT  OMCSDDRB 070608 S__1054
ADDing database #100 fails with ecl error:
OMCEC046I 02 OMCSDDRF LINE# 0075 NON-DECIMAL RETURN CODE

OMCSDDRB was run with following control statements:

LIST ALL
ADD #100 DSN=OMCS.DBASE.REPH01.MOD0906D SPACE=3300 VOL=POMC60

The LIST worked but the ADD failed with this error:
02.0075 RETURN:  EXIT &CC,&ERMES
02.0075 RETURN:  EXIT ALL,
OMCEC046I 02 OMCSDDRF LINE# 0075 NON-DECIMAL RETURN CODE
01.0419               EXEC OMCSDDRF &@WK ADDCHECK ???
01.0419               EXEC OMCSDDRF A ADDCHECK ???
OMCEC046I 01 OMCSDDRB LINE# 0419 ERROR IN LOWER-LEVEL ECL PROGRAM
OMCEC047I OMCSDDRB:
OMCEC048I OMCSDDRB: ECL ERROR FORCING TERMINATION :

This problem only occurs when there are 99 or more databases defined in
DDR.  When the database number is non-numeric it is simply being ignored
and a default number generated.  The ECL error occurs later when a
return code is being developed and only fails when the original
non-numeric database is 3 or more characters long.

The solution is: #100 should be rejected as not numeric -OR- the '#'
should be ignored
       */
++VER(Z038) FMID(ASEB200). /* getapar 07/06/20 16:38