IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

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: 7309
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: 19243
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

Global Moderator


Joined: 07 Sep 2006
Posts: 1592
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

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2e2c2/2.2.2?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts JCL Dynamic System Symbols JCL & VSAM 3
No new posts To find an array of words (sys-symbol... JCL & VSAM 9
This topic is locked: you cannot edit posts or make replies. SYMNAMES using COBDFSYM for OCCURS cl... CLIST & REXX 12
No new posts Check Binary Values for symbols CA Products 3
No new posts SYMNAMES problem DFSORT/ICETOOL 7
Search our Forums:

Back to Top