コード例 #1
0
 int compare(ComparisonMode mode, VarBufferPos buffer2, VarDefG varDef1, VarBufferPos buffer1) {
   // see http://h71000.www7.hp.com/DOC/73final/6297/6297_profile_010.html#group_items_sec
   // If the nonnumeric operand is a group item, the compiler treats the numeric operand as if it
   // had been moved into a group item the same size as the numeric operand and then compared. This
   // is equivalent to a group move.
   // The compiler ignores the description of the numeric item (except for length) and, therefore,
   // includes in its length any operational sign, whether carried as a separate character or as an
   // overpunched character. Overpunched characters are never ASCII numeric digits. They are
   // characters ranging from A to R, left brace ({), or right brace (}). Thus, the sign and the
   // digits, stored as ASCII bytes, take part in the comparison, and zeros are not supplied for P
   // characters in the PICTURE character-string.
   // String cs1 = varDef1.getRawStringExcludingHeader(buffer1);
   CStr cs1 = buffer1.getBodyCStr(varDef1);
   int n2 = getAsDecodedInt(buffer2);
   // String cs2 = getStringRightPadded(n2, ' ', varDef1.getTotalSize());
   return StringAsciiEbcdicUtil.compare(mode, cs1, String.valueOf(n2));
 }
コード例 #2
0
  int compare(ComparisonMode mode, VarBufferPos buffer2, VarDefX varDef1, VarBufferPos buffer1) {
    // see
    // http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGYLR205/6.1.6.5.3?SHELF=&DT=20000927030801&CASE=
    // see http://h71000.www7.hp.com/DOC/73final/6297/6297_profile_010.html#group_items_sec
    // If the nonnumeric operand is an elementary item or a literal, the compiler treats the numeric
    // operand as if it had been moved into an alphanumeric data item the same size as the numeric
    // operand and then compared. This causes any operational sign, whether carried as a separate
    // character or as an overpunched character, to be stripped from the numeric item so that it
    // appears to be an unsigned quantity.
    // In addition, if the PICTURE character-string of the numeric item contains trailing P
    // characters, indicating that there are assumed integer positions that are not actually
    // present, they are filled with zero digits. Thus, an item with a PICTURE character-string of
    // S9999PPP is moved to a temporary location where it is described as 9999999. If its value is
    // 432J (--4321), the value in the temporary location will be 4321000. The numeric digits take
    // part in the comparison.
    // String cs1 = varDef1.getRawStringExcludingHeader(buffer1);
    CStr cs1 = buffer1.getBodyCStr(varDef1);
    //		int n2 = getUnsignedInt(buffer2);
    //		String cs2 = getStringRightPadded(n2, ' ', varDef1.getTotalSize());

    CStr cs2 = getAsAlphaNumString(buffer2);
    return internalCompare(mode, cs1, cs2);
  }
コード例 #3
0
 boolean isNumeric(VarBufferPos buffer) {
   CStr cs = buffer.getBodyCStr(this);
   return cs.isOnlyNumericComp0SignLeading(false);
 }