Hi Harald, There appears to be a bug in the compiler which is causing this error. I have tracked the cause down to the parameters you are passing to CBL_GET_CURRENT_DIR are part of a group item. If I change these to use 01 levels instead it works correctly. 01 SRVCHDIR-PARAMS. 05 SRVCHDIR-FLAGS PIC X(4) COMP-5. 05 SRVCHDIR-PFADLAENGE PIC X(4) COMP-5 VALUE 128. 05 SRVCHDIR-PFAD-IN PIC X(128). 05 SRVCHDIR-PFAD-OUT PIC X(128). 05 SRVCHDIR-RESULT PIC XX COMP-5. 88 SRVCHDIR-WECHSEL-OK VALUE 0. 88 SRVCHDIR-WECHSEL-NOTOK VALUES 128 129. change to: 01 SRVCHDIR-FLAGS PIC X(4) COMP-5. 01 SRVCHDIR-PFADLAENGE PIC X(4) COMP-5 VALUE 128. 01 SRVCHDIR-PFAD-IN PIC X(128). 01 SRVCHDIR-PFAD-OUT PIC X(128). 01 SRVCHDIR-RESULT PIC XX COMP-5. 88 SRVCHDIR-WECHSEL-OK VALUE 0. 88 SRVCHDIR-WECHSEL-NOTOK VALUES 128 129. Could you please open up a new support incident with Customer Care and place my name in the description? I will then create a bug report for this problem. Thanks.
↧
