05 buffer-sz pic 9(9) comp-5 value 0. 05 buffer occurs 0 to 100000 times depending on buffer-sz. 10 element pic x. 01 database-name. 05 pic x(6) value "sample". 05 pic x value x"00". Procedure Division. monsz-pgm section. display "Sample COBOL Program : MONSZ.CBL". * ...
How to restart a database ** ** This program shows how to restart a database after it ** has been abnormally terminated. ** ** DB2 API USED: ** sqlgrstd -- RESTART DATABASE ** ** *** ** ** For more information on the sample programs, see theREADMEfile. ** ** For informa...
If Enterprise COBOL is available in your shop you can use a new facility called "environment(al?) variables" which you can use to repeatedly open and close the same FD (that defines the PDS, not the directory) and change the member name before each OPEN. See the following link...