|
|
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
|
|
| |
If you need any support or assistance with any of the code on this site
or
if you would like to contact us, please click here
Follow us on Facebook
|
|
Number of unique visitors 408
Copyright © Abbydale Systems LLC 2015-2024
Abbydale Systems LLC Lic. 802696149. All rights reserved.
Last modified : Sunday 6th of December 2020 |
