midrange.com code scratchpad |
Name:
Member NMS_Protos in sourcefile, TFSCOPYSRC
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
05/30/2012 02:19:29 pm
|
IP:
Logged
|
|
Description:
Test code for passing data structure to a submitted job.
|
Code:
-
- /if defined(test_nms)
- d TESTSTUFF2...
- d PR extproc('TESTSTUFF2')
- d in_ds likeds(NMS_OrderDetails)
- d const
- /endif
-
- * Data structure common to multiple NMS provisioning modules
- * MAINTENANCE NOTE: This DS is passed through a SBMJOB command, and for
- * that the EndOfDSmarker field must be the last subfield so that any
- * trailing blanks are preserved for the receiving program. Ensure the
- * program passing the data structure has character fields adequately
- * sized for the conversion to hex.
- /if defined(NMS_Details_DS)
- d NMS_OrderDetails...
- d ds qualified
- d Order 6a
- d OrderType 2a
- D Phone# 10S 0 inz(0)
- d PhoneExch 6s 0 overlay(Phone# : 1)
- d PhoneLine 4s 0 overlay(Phone# : *next)
- d OldPh# 10s 0 inz(0)
- d OldExch 6s 0 overlay(OldPh# : 1)
- d OldLine 4s 0 overlay(OldPh# : *next)
- d CableType 6 inz
- d PriorCableType...
- d 6 inz
- d COE 11a inz
- d testvarying1 30a inz varying
- d testON n inz
- d testP4point3 4p 3 inz
- d testvarying2 20a inz varying
- d testTrailingBlanks...
- d 5a inz('MK ')
- d EndOfDSmarker 1a inz('x')
- /endif
-
|
|
|