EDIT MTPLP06.CALLSUB.PDS(SIGNTEST) - 01.01
Command ===>
****** ***************************** Top of Data *****
000100 ID DIVISION.
000200 PROGRAM-ID. SIGNTEST.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 REC.
000600 02 A PIC A(1) VALUE "C".
000700 02 B PIC A(1) VALUE "A".
000800 01 REC1 VALUE IS "2324".
000900 02 C PIC 9(2).
001000 02 D PIC 9(2).
001100 01 E PIC 9(2) VALUE 34.
001200 01 F PIC 9(2) VALUE 84.
001300 01 G PIC 9(2).
001400 01 H PIC 9(3).
001500 01 I PIC S9(2) SIGN TRAILING.
001600 01 J PIC S9(2) SIGN LEADING.
001700 01 K PIC S9(2) SIGN TRAILING SEPARATE.
001800 01 L PIC S9(2) SIGN LEADING SEPARATE.
001900 01 M PIC A(1) VALUE "M".
002000 PROCEDURE DIVISION.
002100 DISPLAY "REC IS = " REC.
002200 DISPLAY "A IS = " A.
002300 DISPLAY "B IS = " B.
002400 DISPLAY "REC1 IS = " REC1.
002500 DISPLAY "C IS = " C.
002600 DISPLAY "D IS = " D.
002700 DISPLAY "E IS = " E.
002800 DISPLAY "F IS = " F.
002900 ADD E TO F GIVING G.
003000 DISPLAY "G IS = " G.
003100 MOVE G TO H.
003200 DISPLAY "H IS = " H.
003300 SUBTRACT F FROM E GIVING I.
003400 SUBTRACT F FROM E GIVING J.
003500 SUBTRACT F FROM E GIVING K.
003600 SUBTRACT F FROM E GIVING L.
003700 DISPLAY "I IS = " I.
003800 DISPLAY "J IS = " J.
003900 DISPLAY "K IS = " K.
004000 DISPLAY "L IS = " L.
004100 DISPLAY "M IS = " M.
004200 STOP RUN.
( COMPILE & RUN THROGH SAME PROG ).
O/PP -->
*****************
REC IS = CA
A IS = C
B IS = A
REC1 IS = 2324
C IS = 23
D IS = 24
E IS = 34
F IS = 84
G IS = 18
H IS = 018
I IS = 5}
J IS = N0
K IS = 50-
L IS = -50
M IS = M
EDIT MTPLP06.CALLSUB.PDS(LENTHTES) - 01.00
Command ===>
****** ***************************** Top of Data ****
000100 ID DIVISION.
000200 PROGRAM-ID. COMPTEST.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 77 A PIC 9(6).
000600 77 B PIC 9(6) COMP.
000700 77 C COMP-1.
000800 77 D COMP-2.
000900 77 E PIC 9(6) COMP-3.
001000 PROCEDURE DIVISION.
001100 DISPLAY "MEM ALLOCATED FOR A = ".
001200 DISPLAY LENGTH OF A.
001300 DISPLAY "MEM ALLOCATED FOR B = ".
001400 DISPLAY LENGTH OF B.
001500 DISPLAY "MEM ALLOCATED FOR C = ".
001600 DISPLAY LENGTH OF C.
001700 DISPLAY "MEM ALLOCATED FOR D = ".
001800 DISPLAY LENGTH OF D.
001900 DISPLAY "MEM ALLOCATED FOR E = ".
002000 DISPLAY LENGTH OF E.
002100 STOP RUN.
(WILL GET O/P AS BELOW-O/P IN LAST BIT IS LENTH OF DEFINED DATA NAME.)
CHECK THE EXAMPLE FOR COMPS IN CLASSBOOK.
*************************
MEM ALLOCATED FOR A =
000000006
MEM ALLOCATED FOR B =
000000004
MEM ALLOCATED FOR C =
000000004
MEM ALLOCATED FOR D =
000000008
MEM ALLOCATED FOR E =
000000004
( PROGRAM TO DISPLAY THE INTERNAL STORAGE OF DIFFERENT USAGE CLASS)
EDIT MTPLP06.ALLNEW.PDS(USAGE) - 01.01
Command ===>
****** ***************************** Top of Da
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. COMP1.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 A PIC 9(4) USAGE IS COMP.
000700 01 B USAGE IS COMP-1.
000800 01 C USAGE IS COMP-2.
000900 01 D PIC 9(5) USAGE IS COMP-3.
001000 01 E PIC 9(4) VALUE 7612.
001100 PROCEDURE DIVISION.
001200 DISPLAY E.
001300 MOVE E TO A , B , C , D.
001400 DISPLAY A.
001500 DISPLAY B.
001600 DISPLAY C.
001700 DISPLAY D.
O/P-->
**************************
7612
7612
.76120000E 04
.76120000000000000E 04
07612
( PROG FOR DISPLAYING FIBONACCI SERIES:--0,1,1,2,3,5,8,13.............)
EDIT MTPLP06.ALLNEW.PDS(FIBO) - 01.05 Columns
Command ===> Scrol
****** ***************************** Top of Data ******************
000100 ID DIVISION.
000200 PROGRAM-ID. FIBONUM.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 I PIC 9(2) VALUE 1.
000700 01 N PIC 9(2).
000800 01 VAR1 PIC 9(3) VALUE 0.
000900 01 VAR2 PIC 9(3) VALUE 1.
001000 01 VAR3 PIC 9(3).
001100 PROCEDURE DIVISION.
001110 MAINPARA.
001200 ACCEPT N.
001300 DISPLAY VAR1.
001400 DISPLAY VAR2.
001500 PERFORM PARA1 VARYING I FROM 1 BY 1 UNTIL I > N.
001600 STOP RUN.
001700 PARA1.
001800 COMPUTE VAR3 = VAR1 + VAR2.
001900 DISPLAY VAR3.
002000 MOVE VAR2 TO VAR1.
002100 MOVE VAR3 TO VAR2.