Skip to main content

Problem:

Micro Focus Net Express V5.003.0082

RUN TIME ENVIRONMENT Copyright (C) 1984-2007 Micro Focus (IP) Limited.

URN AXCGG/AA0/00000

        1 file(s) copied.

          Boolean operator 'ZD' invalid

SORT015U: Command statement error(s) detected

16:mfsort take CIPS0270A

JOB is abending due to return code 16

SORT FIELDS=(3,10,CH,A)

RECORD=(F,450)

OMIT COND=((1,2,EQ,C'50'),OR,(1,2,EQ,C'52'),OR,(1,2,EQ,C'51',AND,

              13,9,ZD,EQ,000000000,AND,22,9,ZD,EQ,000000000,AND,

*************

              31,9,ZD,EQ,000000000,AND,40,11,ZD,EQ,00000000000,AND,

              51,11,ZD,EQ,00000000000,AND,406,9,ZD,EQ,000000000))

Resolution:

The error is not with the ZD operator which is really a field TYPE. On the first line of the OMIT the filed type was omitted so sort is looking for operators not field TYPES in this postion.

To fix the error you must add the CH field type or the correct field TYPE to the first three OMIT CONDITIONS in this case that would be CH and the format would look like this.

SORT FIELDS=(3,10,CH,A)

RECORD=(F,450)

OMIT COND=((1,2,CH,EQ,C'50'),OR,(1,2,CH,EQ,C'52'),OR,(1,2,CH,EQ,C'51',AND,

                              ***                              ***                               ***                

              13,9,ZD,EQ,000000000,AND,22,9,ZD,EQ,000000000,AND,

              31,9,ZD,EQ,000000000,AND,40,11,ZD,EQ,00000000000,AND,

              51,11,ZD,EQ,00000000000,AND,406,9,ZD,EQ,000000000))

Old KB# 1474

#ServerExpress
#RMCOBOL
#COBOL
#AcuCobol
#netexpress