Re: QCMDEXC (or) user written CLP program ?

Hi Tim,

It's been a long time since I did COBOL.  Here's the sample from the V4R4M0
ILE COBOL Reference Manual:

 |     SPECIAL-NAMES.  SYSTEM-CONSOLE IS SYSTM
 |        REQUESTOR IS WORK-STATION
 |        C01 IS NEXT-PAGE
 |        LOCAL-DATA IS LOCAL-DATA-AREA
 |        ATTRIBUTE-DATA IS ATTRB-DATA
 |        SYSTEM-SHUTDOWN IS SHUTDOWN-SWITCH
 |            ON STATUS IS SHUTDOWN-PENDING
 |        UPSI-0 IS UPSI-SWITCH-0
 |            ON STATUS IS U0-ON
 |            OFF STATUS IS U0-OFF
 |        UPSI-1 IS UPSI-SWITCH-1
 |            ON STATUS IS U1-ON
 |            OFF STATUS IS U1-OFF
 |        IBM-ASCII IS STANDARD-1
 |        CURRENCY SIGN IS "Y".

    ________________________________________________________________________
   | Table 2. Choices of Environment-Name-1 and Action Taken
|
   |_________________ __________________
___________________________________|
   | Environment-name|1Statement where  | Usage
|
   |                 | mnemonic-name    |
|
   |                 | associated with  |
|
   |                 | environment-name |
|
   |                 | is used          |
|

|_________________|__________________|___________________________________|
   | DATA-AREA       | ACCEPT, DISPLAY  | Retrieves or updates an AS/400
|
   |                 |                  | data area.
|

|_________________|__________________|___________________________________|
   | LOCAL-DATA      | ACCEPT, DISPLAY  | Retrieve data from, or move data
|
   |                 |                  | to the local data area created by
|
   |                 |                  | the system for every job.
|

|_________________|__________________|___________________________________|


LOCAL-DATA is the environment name, and LOCAL-DATA-AREA is presumably the
name of a variable in WORKING-STORAGE.  So it looks right to me.  What
version are you on?

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

From: "Tim Truax" <truax@telerama.com>
> I got this error when attempting this:  Maybe I am outta luck?
>
>                          Additional Message Information
>
> Message ID . . . . . . :           LSC1030        Severity . . . . . . :
10
> Message type . . . . . :           Diagnostic
>
>
> Message . . . . :   DATA-AREA invalid, checking resumed at start of
clause.
> Cause . . . . . :   Line not accepted as DATA-AREA is not a valid item.
> Recovery  . . . :   Correct the error and reenter this line.
>
> *
>  ENVIRONMENT DIVISION.
> *
>   CONFIGURATION SECTION.
>    SOURCE-COMPUTER. IBM-AS400.
>    OBJECT-COMPUTER. IBM-AS400.
>    SPECIAL-NAMES. DATA-AREA IS MY-DTAARA.



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com