Category : Miscellaneous Language Source Code
Archive   : COBOL85.ZIP
Filename : XSUB1.COB

 
Output of file : XSUB1.COB contained in archive : COBOL85.ZIP
IDENTIFICATION DIVISION.
PROGRAM-ID. SQUARE-ROOT-FUNCTION.
* EXAMPLE OF A FUNCTION SUB PROGRAM
* NOTE THE GIVING CLAUSE IN THE PROCEDURE HEADER
* NOTE THAT THE GIVING VALUE DOES NOT HAVE TO BE IN THE LINKAGE
* SECTION BUT CAN ONLY BE COMP COMP-1 OR COMP-2
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SQUARE-ROOT-VALUE COMP-1.
* THE LINKAGE SECTION MUST FOLLOW THE WORKING STORAGE SECTION
LINKAGE SECTION.
* PARAMETERS------MUST BE LEVEL 01
01 VALUE-RECEIVED PIC 9(5) COMP-3.
PROCEDURE DIVISION USING VALUE-RECEIVED
GIVING SQUARE-ROOT-VALUE.
000-MAIN.
COMPUTE SQUARE-ROOT-VALUE = VALUE-RECEIVED ** 0.5
EXIT PROGRAM.
END PROGRAM SQUARE-ROOT-FUNCTION.


  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : COBOL85.ZIP
Filename : XSUB1.COB

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/