ChrisCalderini
New User
Joined: 02 Nov 2024 Posts: 1 Location: United States
|
|
|
|
Hello. I'm fairly new to mainframe computing and I'm working on a report that contains SSNs. I would like to have the SSN displayed as XXX-XX-1234. I've spent some time looking at the Programming Guide and Language Reference for Easytrieve, but I am having a hard time finding an example of what I'm trying to do. Can I overwrite the first 5 digits of my SSNs?
Here's my Report Statement:
*=====================================================================*
* *
* R E P O R T S T A T E M E N T *
* *
*=====================================================================*
REPORT UPDRPT01 PRINTER UPDRPT01 LINESIZE 130 NODATE NOPAGE NOADJUST
SEQUENCE AGENCY-PROC SSN
CONTROL AGENCY-PROC NEWPAGE
TITLE 01 'DEPT OF INNOVATION AND TECHNOLOGY '
TITLE 02 'DEFERRED COMP CONTRIBUTION AMOUNT '
HEADING FIND-NAME-LAST1 ('LAST' 'NAME')
HEADING FIND-NAME-FIRST1 ('FIRST' 'NAME')
HEADING PEGI-PROC-ORG ('PROC' 'ORG')
HEADING PEGI-TYPE ('TYPE')
HEADING DEF-COMP-PCT ('DEF COMP' 'PERCENT')
HEADING ROTH-PCT ('ROTH' 'PERCENT')
HEADING DEF-COMP-AMNT ('DEF COMP' 'AMOUNT')
HEADING ROTH-AMNT ('ROTH' 'AMOUNT')
LINE 01 SSN +
FIND-NAME-LAST1 +
FIND-NAME-FIRST1 +
PEGI-PROC-ORG +
PEGI-TYPE +
DEF-COMP-PCT +
ROTH-PCT +
DEF-COMP-AMNT +
ROTH-AMNT
// |
|