This is a sample screen shoot of the output
generated by executing the STARTCOB edit macro as supplied on
this website.
Notice that the program name will be the same name as the member
name being created.
N.B. The column alignment is correct for Cobol programs
File Edit Edit_Settings Menu Utilities Compilers Test Help ------------------------------------------------------------------------------- EDIT ABBYDALE.DEVL.SOURCE(TESTCOB) - 01.00 Command ===> Scroll ===> CSR 000001 *------------------------------------------------------------* 000002 IDENTIFICATION DIVISION. 000003 *------------------------------------------------------------* 000004 PROGRAM-ID. TESTCOB . 000005 *------------------------------------------------------------* 000006 * * 000007 * Description : * 000008 * * 000009 * Created on : 11 Aug 2020 * 000010 * Created by : KEVIN FERGUSON * 000011 * : Userid(MIT001) * 000012 * : Using ABBYDALE.DEVL.SOURCE(TESTCOB) * 000013 * * 000014 * Called by : * 000015 * * 000016 * Calls : * 000017 * * 000018 * Change Activity : * 000019 * * 000020 *------------------------------------------------------------* 000021 * ©Copyright of Abbydale Systems LLC. * 000022 *------------------------------------------------------------* 000023 ENVIRONMENT DIVISION. 000024 *------------------------------------------------------------* 000025 INPUT-OUTPUT SECTION. 000026 *------------------------------------------------------------* 000027 DATA DIVISION. 000028 *------------------------------------------------------------* 000029 WORKING-STORAGE SECTION. 000030 *------------------------------------------------------------* 000031 LINKAGE SECTION. 000032 *------------------------------------------------------------* 000033 PROCEDURE DIVISION. 000034 *------------------------------------------------------------* 000035 A-MAIN SECTION. 000036 *------------------------------------------------------------* 000037 STOP RUN. 000038 *------------------------------------------------------------* 000039 * End of TESTCOB * 000040 *------------------------------------------------------------* F1=Help F2=Split F3=Exit F5=Rfind F6=Rchange F7=Up F8=Down F9=Swap F10=Left F11=Right F12=RETRIEVE |
