This example illustrates how CA Earl can generate a scratch forecast report. A similar example resides as member TMESCRF in the CA 1 Source library.
! ! TMS REPORT-TMESCRF DATA SET SCRATCH FORECAST ! ( SIMILAR TO OLD TMS REPORT 4 ) ! VOLUME RECORDS ONLY ! COPY EARLDEFS DEF FIRST_SW (X 1) = ' ' DEF P_SCRATCH_DATE (X 10) = NONE 'SCRATCH' 'DATE' DEF SCRATCH_DATE (P 7.0) = 0 DEF EXP_DATA (X 64) = NONE DEF EXP_NAM = EXP_DATA 05-14 X DEF P_FROM_DATE (X 10) = ' ' DEF P_TO_DATE (X 10) = ' ' DEF WORK_DAYS (P 7.0) = 7 SET TYPRUN = R_VOLUME ! ! CHANGE WORK_DAYS TO REFLECT THE DESIRED SCRATCH FORECAST NUMBER OF ! DAYS. THIS WILL BE ADDED TO THE CURRENT DATE TO CREATE A DATE RANGE. ! ! IF THE EXPIRATION DATE FALLS WITHIN THIS DATE RANGE, IT WILL BE ! PRINTED ON THE SCRATCH FORECAST REPORT. ! GET TAPEDB GOTO EOJ TAPEDB = 'E' IF FIRST_SW = ' ' THEN SET FIRST_SW = '*' SET FUNCTION = 'RETURN_DATE' CALL CTSEDATE USING FUNCTION,RUNDATE,RUNTIME SET FUNCTION = 'TO_EXPLODED' CALL CTSEDATE USING FUNCTION,P_EXP_DATA,RUNDATE SET DAYS = WORK_DAYS SET FUNCTION = 'ADD_DAYS' CALL CTSEDATE USING FUNCTION,RUNDATE,DAYS,SCRATCH_DATE SET FUNCTION = 'TO_EXTERNAL' CALL CTSEDATE USING FUNCTION,P_FROM_DATE,RUNDATE,DATE_FMT CALL CTSEDATE USING FUNCTION,P_TO_DATE,SCRATCH_DATE,DATE_FMT ENDIF SET FUNCTION = 'TO_EXPLODED' CALL CTSEDATE USING FUNCTION,EXP_DATA,EXPDT IF EXP_NAM NOT = 'JDATE' THEN GOTO START ENDIF
(continued on next page)
SET FUNCTION = 'TO_EXTERNAL' CALL CTSEDATE USING FUNCTION,P_EXPDT,EXPDT,DATE_FMT CALL CTSEDATE USING FUNCTION,P_CDATE,CDATE,DATE_FMT CALL CTSEDATE USING FUNCTION,P_OUTDATE,OUTDATE,DATE_FMT SET P_CTIME = CTIME REPORT TITLE @1 P_EXP_DAYNAM @11 ',' @13 P_EXP_MONNAM @24 P_EXP_DD @26 ',' @28 P_EXP_YYYY @32 '.' @33 P_EXP_DDD @50 COMPANY_NAME @115 'PAGE' @125 PAGENUMBER TITLE @1 ' ' TITLE @1 'TMS REPORT-TMESCRF JOBNAME SCRATCH FORECAST' @75 'REPORT RANGE IS' @91 P_FROM_DATE @102 'TO' @105 P_TO_DATE ! ! SELECT ALL VOLUME RECORDS WHOSE EXPIRATION DATE FALLS WITHIN THE ! CURRENT DATE AND THE FORECASTED END DATE (SCRATCH_DATE). ! SELECT EXPDT >= RUNDATE AND EXPDT <= SCRATCH_DATE CONTROL VOLSER PRINT VOLSER DSN 1 CJOB VOLSEQ P_CDATE P_CTIME P_EXPDT LABEL_TYPE TRTCH OUTCODE P_OUTDATE FLAG3_EDM END
THURSDAY, JULY 21, 2005.200 Y O U R C O M P A N Y N A M E PAGE 1 TMS REPORT-TMESCRF JOBNAME SCRATCH FORECAST REPORT RANGE IS YYYY/202 TO YYYY/209 -------------------------------------------------------------------------------------------------------------------------------- VOLSER DATA SET NAME CREATE VOL CREATE CREATE EXPIRATION LBL TRTCH LOC DATE EDM JOBNAME SEQ DATE TIME DATE TYP ID MOVED IND -------------------------------------------------------------------------------------------------------------------------------- 121317 INTEXJ.D1019M82 AXBACKUP 1 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 121640 INTEXJ.D1019M82 AXBACKUP 1 YYYY/208 18:43:00 YYYY/208 SL 18TK ???? ZEROS N 121886 INTEXJ.D1018M82 AXBACKUP 1 YYYY/208 18:41:00 YYYY/208 SL 18TK ???? ZEROS N 122598 INTEXJ.D10PWM92 AXELJDMK 1 YYYY/202 05:57:00 YYYY/202 SL 18TK ???? ZEROS N 123315 INTEXJ.D1001M50 AXELJDMK 1 YYYY/206 21:57:00 YYYY/207 SL 18TK ???? ZEROS N 123427 INTEXJ.D1001M85 AXELJDMM 12 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 128265 INTEXJ.D1001M85 AXELJDMM 10 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 128558 INTEXJ.D1001M85 AXELJDMM 3 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 130372 INTEXJ.D1001M85 AXELJDMM 1 YYYY/304 22:07:00 YYYY/209 SL 18TK ???? ZEROS N 130575 INTEXJ.D1001M85 AXELJDMM 5 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 130623 INTEXJ.D1001M85 AXELJDMM 1 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 131238 INTEXJ.D10PWM92 AXELJDMM 1 YYYY/209 01:05:00 YYYY/209 SL 18TK ???? ZEROS N 131685 INTEXJ.D1001M85 AXELJDMM 4 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 131810 INTEXJ.D1001M85 AXELJDMM 9 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 132722 INTEXJ.D1001M85 AXELJDMM 6 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 132762 INTEXJ.D1001M85 AXELJDMM 2 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 134098 INTEXJ.D1018M82 AXELJDMN 1 YYYY/208 18:43:00 YYYY/208 SL 18TK ???? ZEROS N 134310 INTEXJ.D1019M81 AXELJDMN 1 YYYY/208 18:42:00 YYYY/208 SL 18TK ???? ZEROS N 134511 INTEXJ.D1001M85 AXELJDMO 11 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 134881 INTEXJ.D1001M85 AXELJDMO 8 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 134915 INTEXJ.D1001M85 AXELJDMO 7 YYYY/299 09:49:00 YYYY/204 SL 18TK ???? ZEROS N 139308 INTEXK.XXU19M81 BORXBACK 1 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139318 INTEXK.XXU19M81 BORXBACK 2 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139321 INTEXK.XXU19M81 BORXBACK 3 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139322 INTEXK.XXU19M81 BORXBACK 4 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139349 INTEXK.XXU19M81 BORXBACK 5 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139358 INTEXK.XXU19M81 BORXBACK 6 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139359 INTEXK.XXU19M81 BORXBACK 7 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139368 INTEXK.XXU19M81 BORXBACK 8 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139378 INTEXK.XXU19M81 BORXBACK 9 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139380 INTEXK.XXU19M81 BORXBACK 10 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N 139381 INTEXK.XXU19M81 BORXBACK 11 YYYY/208 18:40:00 YYYY/208 SL 18TK ???? ZEROS N
Example 4 - CA Earl Data Set Scratch Forecast
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|