HP3000-L Archives

April 2000, 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:
Re: variables
From:
Neil Harvey <[log in to unmask]>
Reply To:
Neil Harvey <[log in to unmask]>
Date:
Tue, 25 Apr 2000 07:21:28 +0200
Content-Type:
text/plain
Parts/Attachments:
text/plain (48 lines) 
Shawn

Hope this helps.

Regards

Neil


 77  WS7-STATUS                PIC S9(10) COMP.
 77  WS7-VAR                      PIC X(020).
 77  WS7-VALUE                  PIC X(080).


 MOVE "HPYYYYMMDD" TO WS7-VAR.
 PERFORM F0-GETVAR.
 DISPLAY WS7-VALUE.


 F0-GETVAR SECTION.
 F1-GETVAR.
     MOVE " " TO WS7-VALUE.
     CALL INTRINSIC "HPCIGETVAR" USING WS7-VAR
                                       WS7-STATUS
                                       \2\
                                       WS7-VALUE.
   F99-EXIT.
     EXIT.

-----Original Message-----
From: Shawn Gordon [mailto:[log in to unmask]]
Sent: 24 April 2000 11:28
To: [log in to unmask]
Subject: Re: variables


HPCIGETVAR is what you are looking for.

At 05:10 PM 4/24/2000 -0400, Peter Osborne wrote:
>Hello All,
>
>I am wondering if there is a cobol intrinsic to access the system
>variables set by the 'setvar VARIABLENAME "value"' command.
>
>Thanks,
>
>Pete

ATOM RSS1 RSS2