SRI Technologies

Last Modified
Date: 11-Dec-2005
Time: 03:07:14
Index
Project Name: SqrPlus Event Driven Sqr's (EDS) System
System Name: SqrPlus EDS System
Application Name: SqrPlus EDS supporting procedures
Source File: SQRP-EDS.SQC
Shared Code Name: Sqc for procedures used by EDS System
Description: Sqc that contains procedures that are used by sqr programs developed using EDS methodology.
Author: SRI Technologies
Procedure Index:
Sl.NoProcedureDescription
1 SQRP-EDS-PRINT-TXT-RJUSTPrint text on current line at required column right justified.
2 SQRP-EDS-PRINT-NUM-RJUSTPrint number on current line at required column right justified.
3 SQRP-EDS-ROUNDRound number as per specified precision.
4 SQRP-EDS-ROUND-BY-MSKRound number as per specified edit mask.
5 SQRP-EDS-ASSERT-COLValidate column position.
6 SQRP-EDS-GET-FLD-BY-NUMGet Specified field from record.

Program Change Log:
Sl.NODateAuthorRemark
1.01-09-2005SMInitial coding.
Database Tables:
SLNO.Table NameAccess ModeProcedure NameRemarks
1NoneN/AN/ANot Applicable

Include Files:

  1. None

See Also:

  1. Demo05.sqr
  2. Demo06.sqr

Procedures:

  1. Procedure Name: SQRP-EDS-PRINT-TXT-RJUST
    Procedure Description: Print text on current line at required column right justified.
    Procedure Type: Local

    Arguments/Parameter:
    SLNO.VariableMode
    1#COLBy Value
    2#LENBy Value
    3$TXTBy Value
    4#ATRBy Value

    Database Tables:
    SLNO.Table NameAccess ModeRemarks
    1NoneN/ANot Applicable

    Processing:

    Main Processing.

    1. Prints text right justified at #col on the current line.
    2. In case of field overflow, truncates chars from right.

    See Also:

    1. SQRP-EDS-print-num-RJust
  2. Procedure Name: SQRP-EDS-PRINT-NUM-RJUST
    Procedure Description: Print number on current line at required column right justified.
    Procedure Type: Local

    Arguments/Parameter:
    SLNO.VariableMode
    1#COLBy Value
    2$MSKBy Value
    3#NUMBy Reference

    Database Tables:
    SLNO.Table NameAccess ModeRemarks
    1NoneN/ANot Applicable

    Processing:

    Main Processing.

    1. Prints number right justified at #col on the current line. Least significant digit appears at column specified.
    2. Number is formated as per edit mask specified.

    See Also:

    1. SQRP-EDS-print-txt-RJust
  3. Procedure Name: SQRP-EDS-ROUND
    Procedure Description: Round number as per specified precision.
    Procedure Type: Local

    Arguments/Parameter:
    SLNO.VariableMode
    1#NUMBy Reference
    2#PRECISIONBy Value

    Database Tables:
    SLNO.Table NameAccess ModeRemarks
    1NoneN/ANot Applicable

    Processing:

    Main Processing.

    1. Use edit function to achieve rounding.

    See Also:

    1. SQRP-EDS-Round-By-Msk
  4. Procedure Name: SQRP-EDS-ROUND-BY-MSK
    Procedure Description: Round number as per specified edit mask.
    Procedure Type: Local

    Arguments/Parameter:
    SLNO.VariableMode
    1#NUMBy Reference
    2$MSKBy Value

    Database Tables:
    SLNO.Table NameAccess ModeRemarks
    1NoneN/ANot Applicable

    Processing:

    Main Processing.

    1. Find precision required as in edit mask.
    2. Call SQRP-EDS-Round to round the number.

    See Also:

    1. SQRP-EDS-Round
  5. Procedure Name: SQRP-EDS-ASSERT-COL
    Procedure Description: Validate column position.
    Procedure Type: Local

    Arguments/Parameter:
    SLNO.VariableMode
    1#COLBy Reference
    2$MSGBy Value

    Database Tables:
    SLNO.Table NameAccess ModeRemarks
    1NoneN/ANot Applicable

    Processing:

    Main Processing.

    1. Test that column is >= 0 else set to 1 and log and show message in sqr.log

    See Also:

    1. SQRP-EDS-Round
  6. Procedure Name: SQRP-EDS-GET-FLD-BY-NUM
    Procedure Description: Get Specified field from record.
    Procedure Type: Local

    Arguments/Parameter:
    SLNO.VariableMode
    1$RECORDBy Value
    2$DELIMBy Value
    3#FLD_NUMBy Value
    4$FLD_VALBy Reference

    Database Tables:
    SLNO.Table NameAccess ModeRemarks
    1NoneN/ANot Applicable

    Processing:

    Main Processing.

    1. Extract specified field from record by specifying field number and field delimiter character.

    See Also:

    1. SQRP-EDS-Round