$SET OUTDD"C:\DB2\COBOL\COMPLEN.TXT" $SET IBMCOMP NOTRUNC IDENTIFICATION DIVISION. PROGRAM-ID. COMPLEN. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-370. OBJECT-COMPUTER. IBM-370. INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 77 I PIC 9(04). 77 EOD-STEP PIC X(01) VALUE '0'. 77 PIC94C5 PIC 9(04) COMP-5. 77 PIC94C5X REDEFINES PIC94C5 PIC X(02). 01 COMPX-STUFF. 05 CX1 PIC X(01) COMP-X. 05 CX2 PIC X(02) COMP-X. 05 CX3 PIC X(03) COMP-X. 05 CX4 PIC X(04) COMP-X. 05 CX5 PIC X(05) COMP-X. 05 CX6 PIC X(06) COMP-X. 05 CX7 PIC X(07) COMP-X. 05 CX8 PIC X(08) COMP-X. 05 CX91 PIC 9(01) COMP-X. 05 CX92 PIC 9(02) COMP-X. 05 CX93 PIC 9(03) COMP-X. 05 CX94 PIC 9(04) COMP-X. 05 CX94X REDEFINES CX94 PIC X(02). 05 CX95 PIC 9(05) COMP-X. 05 CX96 PIC 9(06) COMP-X. 05 CX97 PIC 9(07) COMP-X. 05 CX98 PIC 9(08) COMP-X. 05 CX9P1 PIC 9(09) COMP-X. 05 CX9P2 PIC 9(10) COMP-X. 05 CX9P3 PIC 9(11) COMP-X. 05 CX9P4 PIC 9(12) COMP-X. 05 CX9P5 PIC 9(13) COMP-X. 05 CX9P6 PIC 9(14) COMP-X. 05 CX9P7 PIC 9(15) COMP-X. 05 CX9P8 PIC 9(16) COMP-X. 05 CX9P9 PIC 9(17) COMP-X. 05 CX9PA PIC 9(18) COMP-X. 01 COMPX5-STUFF. 05 5CX1 PIC X(01) COMP-5. 05 5CX2 PIC X(02) COMP-5. 05 5CX3 PIC X(03) COMP-5. 05 5CX4 PIC X(04) COMP-5. 05 5CX5 PIC X(05) COMP-5. 05 5CX6 PIC X(06) COMP-5. 05 5CX7 PIC X(07) COMP-5. 05 5CX8 PIC X(08) COMP-5. 05 5CX91 PIC 9(01) COMP-5. 05 5CX92 PIC 9(02) COMP-5. 05 5CX93 PIC 9(03) COMP-5. 05 5CX94 PIC 9(04) COMP-5. 05 5CX95 PIC 9(05) COMP-5. 05 5CX96 PIC 9(06) COMP-5. 05 5CX97 PIC 9(07) COMP-5. 05 5CX98 PIC 9(08) COMP-5. 05 5CX9P1 PIC 9(09) COMP-5. 05 5CX9P2 PIC 9(10) COMP-5. 05 5CX9P3 PIC 9(11) COMP-5. 05 5CX9P4 PIC 9(12) COMP-5. 05 5CX9P5 PIC 9(13) COMP-5. 05 5CX9P6 PIC 9(14) COMP-5. 05 5CX9P7 PIC 9(15) COMP-5. 05 5CX9P8 PIC 9(16) COMP-5. 05 5CX9P9 PIC 9(17) COMP-5. 05 5CX9PA PIC 9(18) COMP-5. 01 COMPX4-STUFF. 05 4C91 PIC 9(01) COMP-4. 05 4C92 PIC 9(02) COMP-4. 05 4C93 PIC 9(03) COMP-4. 05 4C94 PIC 9(04) COMP-4. 05 4C95 PIC 9(05) COMP-4. 05 4C96 PIC 9(06) COMP-4. 05 4C97 PIC 9(07) COMP-4. 05 4C98 PIC 9(08) COMP-4. PROCEDURE DIVISION. MOVE 12345678 TO 4C98. MOVE 12345678 TO 5CX98. MOVE LENGTH OF CX1 TO I DISPLAY 'LENGTH OF CX1 =' I UPON SYSOUT MOVE LENGTH OF CX2 TO I DISPLAY 'LENGTH OF CX2 =' I UPON SYSOUT MOVE LENGTH OF CX3 TO I DISPLAY 'LENGTH OF CX3 =' I UPON SYSOUT MOVE LENGTH OF CX4 TO I DISPLAY 'LENGTH OF CX4 =' I UPON SYSOUT MOVE LENGTH OF CX5 TO I DISPLAY 'LENGTH OF CX5 =' I UPON SYSOUT MOVE LENGTH OF CX6 TO I DISPLAY 'LENGTH OF CX6 =' I UPON SYSOUT MOVE LENGTH OF CX7 TO I DISPLAY 'LENGTH OF CX7 =' I UPON SYSOUT MOVE LENGTH OF CX8 TO I DISPLAY 'LENGTH OF CX8 =' I UPON SYSOUT MOVE LENGTH OF CX91 TO I DISPLAY 'LENGTH OF CX91 =' I UPON SYSOUT MOVE LENGTH OF CX92 TO I DISPLAY 'LENGTH OF CX92 =' I UPON SYSOUT MOVE LENGTH OF CX93 TO I DISPLAY 'LENGTH OF CX93 =' I UPON SYSOUT MOVE LENGTH OF CX94 TO I DISPLAY 'LENGTH OF CX94 =' I UPON SYSOUT MOVE LENGTH OF CX95 TO I DISPLAY 'LENGTH OF CX95 =' I UPON SYSOUT MOVE LENGTH OF CX96 TO I DISPLAY 'LENGTH OF CX96 =' I UPON SYSOUT MOVE LENGTH OF CX97 TO I DISPLAY 'LENGTH OF CX97 =' I UPON SYSOUT MOVE LENGTH OF CX98 TO I DISPLAY 'LENGTH OF CX98 =' I UPON SYSOUT MOVE LENGTH OF CX9P1 TO I DISPLAY 'LENGTH OF CX9P1 =' I UPON SYSOUT MOVE LENGTH OF CX9P2 TO I DISPLAY 'LENGTH OF CX9P2 =' I UPON SYSOUT MOVE LENGTH OF CX9P3 TO I DISPLAY 'LENGTH OF CX9P3 =' I UPON SYSOUT MOVE LENGTH OF CX9P4 TO I DISPLAY 'LENGTH OF CX9P4 =' I UPON SYSOUT MOVE LENGTH OF CX9P5 TO I DISPLAY 'LENGTH OF CX9P5 =' I UPON SYSOUT MOVE LENGTH OF CX9P6 TO I DISPLAY 'LENGTH OF CX9P6 =' I UPON SYSOUT MOVE LENGTH OF CX9P7 TO I DISPLAY 'LENGTH OF CX9P7 =' I UPON SYSOUT MOVE LENGTH OF CX9P8 TO I DISPLAY 'LENGTH OF CX9P8 =' I UPON SYSOUT MOVE LENGTH OF CX9P9 TO I DISPLAY 'LENGTH OF CX9P9 =' I UPON SYSOUT MOVE LENGTH OF CX9PA TO I DISPLAY 'LENGTH OF 5CX9PA =' I UPON SYSOUT MOVE LENGTH OF 5CX1 TO I DISPLAY 'LENGTH OF 5CX1 =' I UPON SYSOUT MOVE LENGTH OF 5CX2 TO I DISPLAY 'LENGTH OF 5CX2 =' I UPON SYSOUT MOVE LENGTH OF 5CX3 TO I DISPLAY 'LENGTH OF 5CX3 =' I UPON SYSOUT MOVE LENGTH OF 5CX4 TO I DISPLAY 'LENGTH OF 5CX4 =' I UPON SYSOUT MOVE LENGTH OF 5CX5 TO I DISPLAY 'LENGTH OF 5CX5 =' I UPON SYSOUT MOVE LENGTH OF 5CX6 TO I DISPLAY 'LENGTH OF 5CX6 =' I UPON SYSOUT MOVE LENGTH OF 5CX7 TO I DISPLAY 'LENGTH OF 5CX7 =' I UPON SYSOUT MOVE LENGTH OF 5CX8 TO I DISPLAY 'LENGTH OF 5CX8 =' I UPON SYSOUT MOVE LENGTH OF 5CX91 TO I DISPLAY 'LENGTH OF 5CX91 =' I UPON SYSOUT MOVE LENGTH OF 5CX92 TO I DISPLAY 'LENGTH OF 5CX92 =' I UPON SYSOUT MOVE LENGTH OF 5CX93 TO I DISPLAY 'LENGTH OF 5CX93 =' I UPON SYSOUT MOVE LENGTH OF 5CX94 TO I DISPLAY 'LENGTH OF 5CX94 =' I UPON SYSOUT MOVE LENGTH OF 5CX95 TO I DISPLAY 'LENGTH OF 5CX95 =' I UPON SYSOUT MOVE LENGTH OF 5CX96 TO I DISPLAY 'LENGTH OF 5CX96 =' I UPON SYSOUT MOVE LENGTH OF 5CX97 TO I DISPLAY 'LENGTH OF 5CX97 =' I UPON SYSOUT MOVE LENGTH OF 5CX98 TO I DISPLAY 'LENGTH OF 5CX98 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P1 TO I DISPLAY 'LENGTH OF 5CX9P1 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P2 TO I DISPLAY 'LENGTH OF 5CX9P2 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P3 TO I DISPLAY 'LENGTH OF 5CX9P3 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P4 TO I DISPLAY 'LENGTH OF 5CX9P4 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P5 TO I DISPLAY 'LENGTH OF 5CX9P5 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P6 TO I DISPLAY 'LENGTH OF 5CX9P6 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P7 TO I DISPLAY 'LENGTH OF 5CX9P7 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P8 TO I DISPLAY 'LENGTH OF 5CX9P8 =' I UPON SYSOUT MOVE LENGTH OF 5CX9P9 TO I DISPLAY 'LENGTH OF 5CX9P9 =' I UPON SYSOUT MOVE LENGTH OF 5CX9PA TO I DISPLAY 'LENGTH OF 5CX9PA =' I UPON SYSOUT DISPLAY 'PAUSING - REPLY "Y"' * ACCEPT EOD-STEP. GOBACK.