FOCUS program :

SET PAGE = NOPAGE
SET LINES = 999999
JOIN CLEAR *
FILEDEF ACCHNG DISK AREA_CODE.DOC
FILEDEF CHGAC DISK CHGAC.FTM APPEND LREC 128 RECFM F
-*
-*  Create The Batch Header
-*
DEFINE FILE AAFILE
BATCH_HEADER1/A40 = '$$$MSC599        CHG AREA CODE  YRE     ';
BATCH_HEADER2/A40 = '                                        ';
BATCH_HEADER3/A40 = '                                        ';
BATCH_HEADER4/A8 = '        ';
END
TABLE FILE AAFILE
PRINT BATCH_HEADER1 AS ''
      BATCH_HEADER2 AS ''
      BATCH_HEADER3 AS ''
      BATCH_HEADER4 AS ''
BY STU_ID NOPRINT   
ON TABLE SAVE AS CHGAC   
IF RECORDLIMIT EQ 1  
END
-*
DEFINE FILE ADFILE
CHK_AC_ONLY/A3=EDIT(PHONE,'999');
CHK_AC_EXC/A6=IF CHK_AC_ONLY EQ '000' 
              THEN '(old area code)'|EDIT(PHONE,'$$$999')
              ELSE EDIT(PHONE,'999999');
CNT_NUM/A6 = DECODE CHK_AC_EXC(ACCHNG ELSE '******'); 
NEW_REC/A128 = ('03M'|STU_ID|'   '|ADDR_TYPE_1|ADDR_TYPE_2|ADDR_TYPE_3|
ADDR_TYPE_4|ADDR_TYPE_5|
'                                                                     '|
'                            (new area code)'|EDIT(PHONE,'$$$9999999'));
END
TABLE FILE ADFILE
PRINT NEW_REC AS '' IN 1 BY STU_ID NOPRINT
ON TABLE SAVE AS CHGAC   
WHERE CNT_NUM NE '******';
WHERE PHONE NE '0000000000';
WHERE PHONE NE ' ';
WHERE AD020_ORDER LE ADDRESS_CTR;
END
JOIN CLEAR *


AREA_CODE.DOC :

'(old area code)xxx','(new area code)xxx'
'(old area code)xxx','(new area code)xxx' 
'(old area code)xxx','(new area code)xxx'
                    .
                    .
                    .
'(old area code)xxx','(new area code)xxx' 
'(old area code)xxx','(new area code)xxx'

This page hosted by Get your own Free Homepage