Title here
Summary here
String Formatting in COBOL
IDENTIFICATION DIVISION.
PROGRAM-ID. STRING-FORMATTING.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-POINT.
05 X PIC 9(4).
05 Y PIC 9(4).
01 WS-STRING PIC X(50).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
MOVE 1 TO X OF WS-POINT.
MOVE 2 TO Y OF WS-POINT.
DISPLAY "struct1: {" X OF WS-POINT " " Y OF WS-POINT "}".
DISPLAY "struct2: {x:" X OF WS-POINT " y:" Y OF WS-POINT "}".
DISPLAY "type: WS-POINT".
DISPLAY "bool: " "TRUE".
DISPLAY "int: " 123.
DISPLAY "bin: " FUNCTION NUMVAL-C(FUNCTION REVERSE(FUNCTION BINARY(14))).
DISPLAY "char: " FUNCTION CHAR(33).
DISPLAY "hex: " FUNCTION HEXADECIMAL(456).
DISPLAY "float1: " 78.9.
MOVE FUNCTION FORMATTED-CURRENT-DATE TO WS-STRING.
DISPLAY "str1: " WS-STRING.
DISPLAY "pointer: Not applicable in COBOL".
DISPLAY "width1: |" FUNCTION CONCATENATE(FUNCTION SPACES(4) "12")
"|" FUNCTION CONCATENATE(FUNCTION SPACES(3) "345") "|".
DISPLAY "width2: | 1.20| 3.45|".
DISPLAY "width3: |1.20 |3.45 |".
DISPLAY "width4: |" FUNCTION CONCATENATE(FUNCTION SPACES(3) "foo")
"|" FUNCTION CONCATENATE(FUNCTION SPACES(5) "b") "|".
DISPLAY "width5: |foo |b |".
STRING "sprintf: a " "string" DELIMITED BY SIZE
INTO WS-STRING.
DISPLAY WS-STRING.
DISPLAY "io: an error" UPON SYSERR.
STOP RUN.COBOL offers different mechanisms for string formatting and output compared to Go. Here’s an explanation of the COBOL code and its differences from the original Go example:
COBOL uses a more structured approach with divisions and sections.
The
structconcept is represented using a record structure (WS-POINT).COBOL doesn’t have direct equivalents for all Go’s formatting verbs. We use
DISPLAYstatements for output.For binary and hexadecimal conversions, we use COBOL’s built-in functions like
BINARYandHEXADECIMAL.COBOL doesn’t have pointers, so we omit that part.
For width formatting, we use the
FUNCTION CONCATENATEandFUNCTION SPACESto achieve similar results.COBOL’s
STRINGstatement is used to concatenate strings, similar to Go’sSprintf.To output to standard error, we use
DISPLAY ... UPON SYSERR.
This COBOL program demonstrates similar string formatting concepts as the Go example, adapted to COBOL’s syntax and capabilities. Note that some advanced formatting options available in Go might not have direct equivalents in COBOL.
To run this COBOL program, you would typically compile it using a COBOL compiler and then execute the resulting program. The exact commands would depend on your COBOL implementation and environment.