|
View previous topic :: View next topic
|
| Author |
Message |
jacobdng
New User
Joined: 27 Aug 2006
Posts: 51
Location: Taiwan
|
|
|
|
I am studying a COBOL program running on AS/400.
Please advise what the following statement achieve:
| Quote: |
100-INPUT-PROCESS-RTN.
KDI DISPLAY "作業開始處理 ......"
SET ENVIRONMENT "LISORT_LIFP611REMI_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_BEG_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_END_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_DURING_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_RISK_HOST" TO "VISION"
|
Thank you.
Jacob |
|
| Back to top |
|
 |
jacobdng
New User
Joined: 27 Aug 2006
Posts: 51
Location: Taiwan
|
|
|
|
Revise the quoted code:
| Code: |
SET ENVIRONMENT "LISORT_LIFP611REMI_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_BEG_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_END_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_DURING_HOST" TO "VISION"
SET ENVIRONMENT "LISORT_LIFP611_RISK_HOST" TO "VISION"
|
Thank you.
Jacob |
|
| Back to top |
|
|
|
|
