To the list:

I forwarded a copy to Tony, but I thought it would be good to let this list
tear it apart.  (Best way to learn!)

Ric

**** Sample code ****
001000$CONTROL SUBPROGRAM, POST85
001100 IDENTIFICATION DIVISION.
001200 PROGRAM-ID.    SAMPLE.
001300 AUTHOR.        Ric Merz.
001400 INSTALLATION.  California Computer Consultants (916) 782-6191.
001500 DATE-WRITTEN.  08/07/01.
001600 DATE-COMPILED. TODAY.
001700*****************************************************************
001800$DEFINE %MYENTRY=
001900 !1-FIRST-ENTRY-POINT SECTION.
002000 !1-ENTER.
002100     ENTRY "!1" USING !2, !3, !4, !5.
002200$PREPROCESSOR DELIMITER=~
002300$DEFINE %PARM1=!1~
002400$PREPROCESSOR DELIMITER=#
002500     MOVE "!1" TO MY-VARIABLE.#
002600
002700$DEFINE %MYEXIT=
002800 %PARM1-EXIT.
002900     EXIT.#
003000*****************************************************************
003100 ENVIRONMENT DIVISION.
003200 CONFIGURATION SECTION.
003300 SOURCE-COMPUTER.     HP-3000.
003400 OBJECT-COMPUTER.     HP-3000.
003500 SPECIAL-NAMES.
003600     CONDITION-CODE IS CC,
003700     SW15 IS DEBUG-SWITCH,
003800            ON STATUS IS DEBUG-ON.
003900
004000 DATA DIVISION.
004100
004200 WORKING-STORAGE SECTION.
004300 01  MY-VARIABLE                     PIC X(20).
004400
004500 LINKAGE SECTION.
004600 01  WS-PGM-NAME                     PIC X(08).
004700 01  WS-PARM1                        PIC X(20).
004800 01  WS-PARM2                        PIC X(08).
004900
005000******************************************************************
005100 PROCEDURE DIVISION.
005200
005300 %MYENTRY(WD-PROG-ID#,WS-PGM-NAME#)
005400
005500     MOVE "%PARM1" TO MY-VARIABLE.
005600
005700     PERFORM A0000-INITIALIZE THRU A0000-EXIT.
005800     PERFORM B0000-MAIN-PROCESS THRU B0000-EXIT.
005900
006000     GOBACK.
006100
006200 %MYEXIT
006300
006400******************************************************************
006500* Dummy paragraphs for fluff.                                    *
006600******************************************************************
006700 A0000-INITIALIZE.
006800
006900 A0000-EXIT.
007000      EXIT.
007100
007200 B0000-MAIN-PROCESS.
007300
007400 B0000-EXIT.
007500      EXIT.
**** End Sample ****

>To: Tony Summers <[log in to unmask]>
>From: Ric Merz <[log in to unmask]>
>Subject: Re: [HP3000-L] Cobol Question
>
>At 11:27 AM 8/7/2001 +0100, you wrote:
>>(Posted to Cobol list earlier on).
>>
>>Is anyone aware of a pre-defined cobol variable (like Time and Date)
which will complete the following puzzle.   What I'ld like is My-Variable
to contain is the name of the entry point - i.e to contain "M4ABCD" at (1)
and "M4EFGH" at (2).
>>
>>
>>ENTRY "M4ABCD" USING X,Y,Z,,,,,etc
>>M4ABCD-FIRST-ENTRY-POINT SECTION.
>>*
>> ABCD-ENTER.
>>*
>>    MOVE ???????????? TO MY-VARIABLE.
>>*   (1)
>>
>> ABCD-EXIT.
>>     EXIT.
>>
>>ENTRY "M4EFGH" USING X,Y,Z,,,,,etc
>>M4EFGH-FIRST-ENTRY-POINT SECTION.
>>*
>> EFGH-ENTER.
>>
>>    MOVE ???????????? TO MY-VARIABLE.
>>*    (2)
>>
>> EFGH-EXIT.
>>     EXIT.
>>
>>
>>
>>* To join/leave the list, search archives, change list settings, *
>>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>>
Ric
[log in to unmask]

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *