Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
John Del contributed some sample symbols, and Pandora-box suggested making it as Sticky.
I might trim some where there is duplication of type-of-symbol. Some time.
If anyone has any useful symbol techniques or values, feel free to post them and I'll incorporate them in the list. Some time.
Note the use of concatenated datasets on the SYMNAMES DD. You can, have example, general constants, specific layouts for files used, and then DD * for whilst testing before it gets into a specfic member.
| Code: |
//SYMNAMES DD DISP=SHR,DSN=symbols.USERLIB(SYMCONST)
// DD *
NOTE-RECORD,1,80,CH
DATAX,=,5,CH
NOTE-OLN,*,9,CH
TICKET-1,*,11,CH
DATA1,*,6,CH
TICKET-2,*,11,CH
DATA2,*,6,CH
TICKET-3,*,11,CH
DATA3,*,6,CH
TICKET-4,*,11,CH
DATA4,*,6,CH
OUT-RECORD,1,20,CH
OUT-TICKET,=,11,CH
SKIP,1
OUT-OLN,*,08,CH
//SYMNOUT DD SYSOUT=*
------- ORIGINAL STATEMENTS FROM SYMNAMES -------
*Symbolic constant translations for use in SORT applications
* FTP, DATE & SYSTEM CONSTANTS
MMDDCCYY,S'&MON.&DAY.&YR4'
mmddccyy,S'&MON.&DAY.&YR4'
CCYYMMDD,S'&YR4.&MON.&DAY'
ccyymmdd,S'&YR4.&MON.&DAY'
YYDDD,S'&YR2.&JDAY'
yyddd,S'&YR2.&JDAY'
CCYYDDD,S'&YR4.&JDAY'
ccyyddd,S'&YR4.&JDAY'
MYJOB,S'&JOBNAME'
MVSNAME,S'&SYSNAME'
HHMMSS,S'&HHMMSS'
hhmmss,S'&HHMMSS'
HOURS,S'&HR'
MINUTES,S'&MIN'
SECONDS,S'&SEC'
WEEKDAY,S'&WDAY' <DAY OF WEEK
GMTDATE,S'&YYMMDD' <GMT DATE (&YR2.&MON.&DAY)
LOCDATE,S'&LYYMMDD' <LOCAL DATE (&YR2.&MON.&DAY)
Q,X'7D' <for adding embedded quote to strings 00033000
Quote,X'7D' <for adding embedded quotes to strings 00033000
* ACCOUNT TABLE CONSTANTS
TICKET,'1'
COLLATERAL,'2'
AUCTION,'4'
WEB-COLL,'5'
PBP,'6'
IVR,'6'
PBW,'7'
* PAYMENT TYPE TABLE CONSTANTS
PAYMENT-PAY-TYPE,'1'
PAY-PAY-TYPE,'1'
ERROR-CORR-PAY-TYPE,'2'
EC-PAY-TYPE,'2'
BOUNCED-CHECK-PAY-TYPE,'3'
BC-PAY-TYPE,'3'
REFUND-PAY-TYPE,'4'
DEBIT-PAY-TYPE,'5'
DEBIT,'5'
CREDIT-PAY-TYPE,'6'
CREDIT,'6'
DENY-CREDIT-PAY-TYPE,'7'
BNC-NO-FEE-PAY-TYPE,'8'
CHARGE-BACK-PAY-TYPE,'9'
CHARGE-BCK-PAY-TYPE,'9'
* PAYMENT METHOD TABLE CONSTANTS
CASH,'1'
CHECK,'2'
MONEY-ORDER,'3'
CREDIT-CARD,'4'
DEBIT-CARD,'5'
CA-BOND,'6'
CK-BOND,'7'
MO-BOND,'8'
CC-BOND,'9'
*GENERAL CONSTANTS BELOW
AM,'AM'
PM,'PM'
ACTIVE,'A'
CANCELED,'C'
COMPLETE,'C'
COMMA,','
DEFAULT,'D'
DUMMIES,'DDP97'
FILED,'F'
FULFILLED,'F'
GUILTY,'G'
HOLD_CONFIRM,'2'
HOLD_REJECT,'3'
HOLD_REQUEST,'1'
ISSUED,'I'
NOTGUILTY,'N'
NOTHING,' '
OFF,'0'
ON,'1'
ONE,1
ONE-P,+100
ONEHUNDRED,100
ONEHUNDRED-P,+10000
ONETHOUSAND,1000
ONETHOUSAND-P,+100000
PIPE,'|'
RLSE_CONFIRM,'6'
RLSE_REJECT,'7'
RLSE_REQUEST,'5'
SKELETON,'I'
SPACE,' '
MLT-TO-STD-TIME1,+120000
MLT-TO-STD-TIME2,+1200
TWELVE-0000,+120000
TWELVE-00,+1200
TRUE,'Y'
XEROX,'XRX'
XRX,'XRX'
YES,'Y'
ZERO,0
ZERO-P,+0
* When searching multiple strings, you should use SS in card (substring)
INVALID-CODES,X'00000C404040'
VIOL-CODES,X'00136C00137C00221C00222C00310C'
VIOL-CODES2,X'00048C00049C00177C00705C00706C00707C00712C00713C00911C'
VIOL-CODESF,X'0000136F0000137F0000221F0000222F0000310F'
VIOL-CODESF2,X'00048F00049F00177F00705F00706F00707F00712F00713F00911F'
LCD-CODES,C'003,034,021,022,023,024,025,026,027,028,029,045'
NIXED,C'1,3,5,7,9'
NOT-NIXED,C' ,2,4,6,8,0'
NOTE-RECORD,1,80,CH
DATAX,=,5,CH
NOTE-OLN,*,9,CH
TICKET-1,*,11,CH
DATA1,*,6,CH
TICKET-2,*,11,CH
DATA2,*,6,CH
TICKET-3,*,11,CH
DATA3,*,6,CH
TICKET-4,*,11,CH
DATA4,*,6,CH
OUT-RECORD,1,20,CH
OUT-TICKET,=,11,CH
SKIP,1
OUT-OLN,*,08,CH
------------------ SYMBOL TABLE -----------------
MMDDCCYY,C'05232013'
mmddccyy,C'05232013'
CCYYMMDD,C'20130523'
ccyymmdd,C'20130523'
YYDDD,C'13143'
yyddd,C'13143'
CCYYDDD,C'2013143'
ccyyddd,C'2013143'
MYJOB,C'E06JMDJD'
MVSNAME,C'MVS1'
HHMMSS,C'135507'
hhmmss,C'135507'
HOURS,C'13'
MINUTES,C'55'
SECONDS,C'07'
WEEKDAY,C'THU'
GMTDATE,C'130523'
LOCDATE,C'130523'
Q,X'7D'
Quote,X'7D'
TICKET,C'1'
COLLATERAL,C'2'
AUCTION,C'4'
WEB-COLL,C'5'
PBP,C'6'
IVR,C'6'
PBW,C'7'
PAYMENT-PAY-TYPE,C'1'
PAY-PAY-TYPE,C'1'
ERROR-CORR-PAY-TYPE,C'2'
EC-PAY-TYPE,C'2'
BOUNCED-CHECK-PAY-TYPE,C'3'
BC-PAY-TYPE,C'3'
REFUND-PAY-TYPE,C'4'
DEBIT-PAY-TYPE,C'5'
DEBIT,C'5'
CREDIT-PAY-TYPE,C'6'
CREDIT,C'6'
DENY-CREDIT-PAY-TYPE,C'7'
BNC-NO-FEE-PAY-TYPE,C'8'
CHARGE-BACK-PAY-TYPE,C'9'
CHARGE-BCK-PAY-TYPE,C'9'
CASH,C'1'
CHECK,C'2'
MONEY-ORDER,C'3'
CREDIT-CARD,C'4'
DEBIT-CARD,C'5'
CA-BOND,C'6'
CK-BOND,C'7'
MO-BOND,C'8'
CC-BOND,C'9'
AM,C'AM'
PM,C'PM'
ACTIVE,C'A'
CANCELED,C'C'
COMPLETE,C'C'
COMMA,C','
DEFAULT,C'D'
DUMMIES,C'DDP97'
FILED,C'F'
FULFILLED,C'F'
GUILTY,C'G'
HOLD_CONFIRM,C'2'
HOLD_REJECT,C'3'
HOLD_REQUEST,C'1'
ISSUED,C'I'
NOTGUILTY,C'N'
NOTHING,C' '
OFF,C'0'
ON,C'1'
ONE,1
ONE-P,+100
ONEHUNDRED,100
ONEHUNDRED-P,+10000
ONETHOUSAND,1000
ONETHOUSAND-P,+100000
PIPE,C'|'
RLSE_CONFIRM,C'6'
RLSE_REJECT,C'7'
RLSE_REQUEST,C'5'
SKELETON,C'I'
SPACE,C' '
MLT-TO-STD-TIME1,+120000
MLT-TO-STD-TIME2,+1200
TWELVE-0000,+120000
TWELVE-00,+1200
TRUE,C'Y'
XEROX,C'XRX'
XRX,C'XRX'
YES,C'Y'
ZERO,0
ZERO-P,+0
INVALID-CODES,X'00000C404040'
VIOL-CODES,X'00136C00137C00221C00222C00310C'
VIOL-CODES2,X'00048C00049C00177C00705C00706C00707C00712C00713C00911C'
VIOL-CODESF,X'0000136F0000137F0000221F0000222F0000310F'
VIOL-CODESF2,X'00048F00049F00177F00705F00706F00707F00712F00713F00911F'
LCD-CODES,C'003,034,021,022,023,024,025,026,027,028,029,045'
NIXED,C'1,3,5,7,9'
NOT-NIXED,C' ,2,4,6,8,0'
NOTE-RECORD,1,80,CH
DATAX,1,5,CH
NOTE-OLN,6,9,CH
TICKET-1,15,11,CH
DATA1,26,6,CH
TICKET-2,32,11,CH
DATA2,43,6,CH
TICKET-3,49,11,CH
DATA3,60,6,CH
TICKET-4,66,11,CH
DATA4,77,6,CH
OUT-RECORD,1,20,CH
OUT-TICKET,1,11,CH
OUT-OLN,13,8,CH |
|
|
.jpg)
