As the conversion of legacy systems continues, the ability to understand embedded business rules becomes more and more critical. This ability is directly related to the structure of the programs within those systems. We also see the need to teach structured programming to a new generation of programmers who must maintain the billions of lines of existing COBOL code. The ultimate purpose of this text is to discuss how to judge the level of structure of a program. We do this by defining structured programming and then discussing how a structured program can be built through the application of the concepts of coupling and cohesion. We also show how embedded business rules of the program can be separated from the data and presentation functions. The reader will be able to use to these skills to judge and to improve the structure of a new program or an existing program.
Structured COBOL Programming
A total introduction which covers all the basic COBOL elements and special features. New chapters emphasize COBOL-85 and discuss the limitations of COBOL-74.
Cobol: From Micro to Mainframe Fujitsu Ver
Cobol: From Micro to Mainframe
Use the fields or literals following each BY to increment each field you vary . These values may be positive or negative . PERFORM paragraph - name - 1 [ { THRU THROUGH THRU } paragraph - name - 2 ] [ WITH TESTS BEFORE AFTER VARYING S ...
There is , however , a new entry in specifying the attributes of the fields : the Sign clause . The character S is used in the Picture clause to indicate the presence of an operational sign . It must be the leftmost character of the ...
For numeric fields specified as unsigned ( no S in the PICTURE clause ) the COBOL compiler ensures that a sign is present so that the values are treated as absolute . VALUE CLAUSE The VALUE clause may be used to specify the initial ...
File Techniques for Data Base Organization in COBOL
Instructor's Manual to Accompany Structured COBOL Programming
... w ident if iter-4 sawdus |##: 1817 lol (lit.jl: } - - - lso - {{o} !ool initial o LEADING {:}; - #} - liter: 1-2 - - - - - - - identificr-2 FoR REPLACING - o J Bl:FinkE U is to(* BY {{...!!!, {# } is orial. iii...i. - - - Al.l.