IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Symbols/SYMNAMES


 
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

PostPosted: Fri May 24, 2013 8:07 pm
Reply with quote

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
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19251
Location: Inside the Matrix

PostPosted: Fri May 24, 2013 8:09 pm
Reply with quote

Hi Bill,

Cool - Thanks!

d
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1566
Location: Andromeda Galaxy

PostPosted: Fri May 24, 2013 8:20 pm
Reply with quote

Great thanks icon_smile.gif
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Fri May 24, 2013 9:23 pm
Reply with quote

I would suggest changing the Date variables to Local variables instead of the Universal Time (UTC) variables.

Here is the link to Dynamic system symbols

Use [URL] BBCode for Links
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts SYMNAMES using COBDFSYM for OCCURS cl... CLIST & REXX 10
No new posts Check Binary Values for symbols CA Products 3
No new posts SYMNAMES problem DFSORT/ICETOOL 7
No new posts How to get previous month in SYMNAMES SYNCSORT 9
No new posts Yesterday's Date using SYMNAMES and F... DFSORT/ICETOOL 2

Back to Top