HP3000-L Archives

April 1998, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
COBOL code example -Reply
From:
Michael Berkowitz <[log in to unmask]>
Reply To:
Michael Berkowitz <[log in to unmask]>
Date:
Mon, 27 Apr 1998 12:31:55 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (40 lines) 
Bill Lancaster writes:

>>> Bill Lancaster <[log in to unmask]> 04/27/98 11:13am >>>
Hi all,

Does anyone have some sample COBOL code to accept a ;PARM string
as a
program parameter?

TIA,

Bill Lancaster
--------------------------------------------------------------------------------------
Here is a COBOL program that will return the parm and info values from
the :RUN statement.

001000 IDENTIFICATION DIVISION.
001100 PROGRAM-ID.  INFO.
001200
001300 DATA DIVISION.
001400 WORKING-STORAGE SECTION.
001500 01  RESULT                      PIC S9(4) COMP.
001600 01  INFO-LENGTH                 PIC S9(4) COMP VALUE 255.
001700 01  INFO-STRING                 PIC X(255) VALUE SPACES.
001800 01  INFO-PARM                   PIC S9(4) COMP.
001900
002000 PROCEDURE DIVISION.
002100 MAINLINE.
002200* INFO-STRING CONTAINS THE RESULT OF INFO="string" OF
:RUN
002300* INFO-PARM   CONTAINS THE RESULT OF PARM=nnnn OF :RUN
002400     CALL INTRINSIC "GETINFO"
002500         USING INFO-STRING INFO-LENGTH INFO-PARM
002600         GIVING RESULT.
002700
002800     IF RESULT <> 0
002900         DISPLAY "GETINFO FAILED, RESULT IS " RESULT.
003000
003100     STOP RUN.

ATOM RSS1 RSS2