1 ^RECCNT.INC 000004C4 ! ! 2 ^RECCNT.INC 000004C4 !===========================> ^RECCNT <===============================! 3 ^RECCNT.INC 000004C4 ! ! 4 ^RECCNT.INC 000004C4 !=======================================================================! 5 ^RECCNT.INC 000004C4 ! Change Log ! 6 ^RECCNT.INC 000004C4 !=======================================================================! 7 ^RECCNT.INC 000004C4 ! FML Name Organisation ! 8 ^RECCNT.INC 000004C4 ! === ======================== ================================ ! 9 ^RECCNT.INC 000004C4 ! RDA Robert D. Acker, Jr. All Systems Satellite ! 10 ^RECCNT.INC 000004C4 !=======================================================================! 11 ^RECCNT.INC 000004C4 !<> FML Date Description ! 12 ^RECCNT.INC 000004C4 ! == === ========== =================================================! 13 ^RECCNT.INC 000004C4 ! RDA 10/01/2010 Original ! 14 ^RECCNT.INC 000004C4 !<> RDA 01/03/2011 Add counts for HISTORICAL/ACTIVE/FUTURE ! 15 ^RECCNT.INC 000004C4 !<> RDA 01/11/2011 Add counts for HEADER/DETAIL ! 16 ^RECCNT.INC 000004C4 !<> FML MM/DD/CCYY ! 17 ^RECCNT.INC 000004C4 !<> FML MM/DD/CCYY ! 18 ^RECCNT.INC 000004C4 !=======================================================================! 19 ^RECCNT.INC 000004C4 .if DECPASS 20 ^RECCNT.INC 000004C4 ! RECCNT.EOL is ASCII ! 21 ^RECCNT.INC 000004C4 SET RECCNT.EOL$ = "@0D0A@" ! 22 ^RECCNT.INC 000004C4 ! ! 23 ^RECCNT.INC 000004C4 ! H)istorical ! 24 ^RECCNT.INC 000004C4 ! A)ctive ! 25 ^RECCNT.INC 000004C4 ! F)uture ! 26 ^RECCNT.INC 000004C4 ! ! 27 ^RECCNT.INC 000004C4 SET HAF.HISTORICAL.PTR = 1 ! 28 ^RECCNT.INC 000004C4 SET HAF.ACTIVE.PTR = 2 ! 29 ^RECCNT.INC 000004C4 SET HAF.FUTURE.PTR = 3 ! 30 ^RECCNT.INC 000004C4 ! ! 31 ^RECCNT.INC 000004C4 LENGTH 1.0 & LOCAL HAF.COUNT.PTR ! 32 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL BYPASSED.1.COUNT ! 33 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL BYPASSED.2.COUNT ! 34 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL BYPASSED.3.COUNT ! 35 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL BYPASSED.TOTAL.COUNT ! 36 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL DATA.RECORDS.COUNT ! 37 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL EMPTY.RECORDS.COUNT ! 38 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL HAF.ACTIVE.COUNT ! 39 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL HAF.FUTURE.COUNT ! 40 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL HAF.HISTORICAL.COUNT ! 41 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL HAF.KEEP.COUNT ! 42 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL HAF.PURGE.COUNT ! 43 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL INSERTED.INTO.PRIMARY.OUTPUT ! 44 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL INSERTED.INTO.SECONDARY.OUTPUT ! 45 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL INSERT.FAILED.PRIMARY.OUTPUT ! 46 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL INSERT.FAILED.SECONDARY.OUTPUT ! 47 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL PROCESSED.COUNT ! 48 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL PROCESSED.FROM.PRIMARY.INPUT ! 49 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL PROCESSED.FROM.SECONDARY.INPUT ! 50 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL PROGRESS.COUNTER ! 51 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL READ.FROM.PRIMARY.INPUT ! 52 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL READ.FROM.SECONDARY.INPUT ! 53 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL REWRITTEN.TO.PRIMARY.OUTPUT ! 54 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL REWRITTEN.TO.SECONDARY.OUTPUT ! 55 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL SELECTED.COUNT ! 56 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL TOTAL.PRIMARY.OUTPUT ! 57 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL TOTAL.SECONDARY.OUTPUT ! 58 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL UPDATED.IN.PRIMARY.INPUT ! 59 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL UPDATED.IN.SECONDARY.INPUT ! 60 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL WORK.RECORD.COUNT ! 61 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL WRITTEN.TO.PRIMARY.OUTPUT ! 62 ^RECCNT.INC 000004C4 LENGTH 8.0 & LOCAL WRITTEN.TO.SECONDARY.OUTPUT ! 63 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.INSERTED.INTO.PRIMARY.OUTPUT$ ! 64 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.INSERTED.INTO.SECONDARY.OUTPUT$ ! 65 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.PROCESSED.FROM.PRIMARY.INPUT$ ! 66 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.PROCESSED.FROM.SECONDARY.INPUT$ ! 67 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.READ.FROM.PRIMARY.INPUT$ ! 68 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.READ.FROM.SECONDARY.INPUT$ ! 69 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.TOTAL.PRIMARY.OUTPUT$ ! 70 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.TOTAL.SECONDARY.OUTPUT$ ! 71 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.WORK.RECORD.COUNT$ ! 72 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.WRITTEN.TO.PRIMARY.OUTPUT$ ! 73 ^RECCNT.INC 000004C4 LENGTH 12 & LOCAL EDITED.WRITTEN.TO.SECONDARY.OUTPUT$ ! 74 ^RECCNT.INC 000004C4 LENGTH 32 & LOCAL EDITED.FROM.TO.RECORD.COUNT$ ! 75 ^RECCNT.INC 000004C4 .ifdef LEN.RECCNT.1ARY.KEY ! 77 ^RECCNT.INC 000004C4 .ELSE ! 78 ^RECCNT.INC 000004C4 LENGTH 64 & LOCAL KEY.FROM.PRIMARY.INPUT$ ! 79 ^RECCNT.INC 000004C4 .endif ! 80 ^RECCNT.INC 000004C4 .ifdef LEN.RECCNT.2ARY.KEY ! 82 ^RECCNT.INC 000004C4 .ELSE ! 83 ^RECCNT.INC 000004C4 LENGTH 64 & LOCAL KEY.FROM.SECONDARY.INPUT$ ! 84 ^RECCNT.INC 000004C4 .endif ! 85 ^RECCNT.INC 000004C4 LENGTH 80 & LOCAL EDITED.PROGRESS.PRIMARY$ ! 86 ^RECCNT.INC 000004C4 LENGTH 80 & LOCAL EDITED.PROGRESS.PRIMARY.KEY$ ! 87 ^RECCNT.INC 000004C4 LENGTH 80 & LOCAL EDITED.PROGRESS.SECONDARY$ ! 88 ^RECCNT.INC 000004C4 LENGTH 254 & LOCAL EDITED.COUNT.HISTORY$ ! 89 ^RECCNT.INC 000004C4 LENGTH 254 & LOCAL EDITED.EOJ.COUNTS$ ! 90 ^RECCNT.INC 000004C4 LENGTH 254 & LOCAL EDITED.HISTORICAL.ACTIVE.FUTURE$ ! 91 ^RECCNT.INC 000004C4 LENGTH 254 & LOCAL RECCNT.MESS$ ! 92 ^RECCNT.INC 000004C4 ! ! 93 ^RECCNT.INC 000004C4 INSERTED.INTO.PRIMARY.OUTPUT.FMT: FORMAT _ ! 94 ^RECCNT.INC 000004C4 INSERTED.INTO.PRIMARY.OUTPUT,"(##,###,##0)" ! 95 ^RECCNT.INC 000004CF ! ! 96 ^RECCNT.INC 000004CF READ.FROM.PRIMARY.INPUT.FMT: FORMAT _ ! 97 ^RECCNT.INC 000004CF READ.FROM.PRIMARY.INPUT,"(##,###,##0)" ! 98 ^RECCNT.INC 000004DA ! ! 99 ^RECCNT.INC 000004DA WRITTEN.TO.PRIMARY.OUTPUT.FMT: FORMAT _ ! 100 ^RECCNT.INC 000004DA WRITTEN.TO.PRIMARY.OUTPUT,"(##,###,##0)" ! 101 ^RECCNT.INC 000004E5 ! 102 ^RECCNT.INC 000004E5 WORK.RECORD.COUNT.FMT: FORMAT _ ! 103 ^RECCNT.INC 000004E5 WORK.RECORD.COUNT,"(##,###,##0)" ! 104 ^RECCNT.INC 000004F0 ! ! 105 ^RECCNT.INC 000004F0 EOJ.COUNTS.FMT: FORMAT _ 106 ^RECCNT.INC 000004F0 "1ary(Read/Proc/Ins/Wrt/Tot):";_ 107 ^RECCNT.INC 000004F5 "R";READ.FROM.PRIMARY.INPUT,"(##,###,##0)";_ 108 ^RECCNT.INC 00000504 "P";PROCESSED.FROM.PRIMARY.INPUT,"(##,###,##0)";_ 109 ^RECCNT.INC 00000513 "I";INSERTED.INTO.PRIMARY.OUTPUT,"(##,###,##0)";_ 110 ^RECCNT.INC 00000522 "W";WRITTEN.TO.PRIMARY.OUTPUT,"(##,###,##0)";_ 111 ^RECCNT.INC 00000531 "T";TOTAL.PRIMARY.OUTPUT,"(##,###,##0)";_ 112 ^RECCNT.INC 00000540 RECCNT.EOL$;_ 112 ^RECCNT.INC 03 540 *********** _ 113 ^RECCNT.INC 00000540 "2ary(Read/Proc/Ins/Wrt/Tot):";_ 113 ^RECCNT.INC 07 540 "2ary(Read/Proc/Ins/Wrt/Tot):";_ 114 ^RECCNT.INC 00000540 "R";READ.FROM.SECONDARY.INPUT,"(##,###,##0)";_ 114 ^RECCNT.INC 07 540 _ 115 ^RECCNT.INC 00000540 "P";PROCESSED.FROM.SECONDARY.INPUT,"(##,###,##0)";_ 115 ^RECCNT.INC 07 540 "P";PROCESSED.FROM.SECONDARY.INPUT,"(##,###,##0)";_ 116 ^RECCNT.INC 00000540 "I";INSERTED.INTO.SECONDARY.OUTPUT,"(##,###,##0)";_ 116 ^RECCNT.INC 07 540 _ 117 ^RECCNT.INC 00000540 "W";WRITTEN.TO.SECONDARY.OUTPUT,"(##,###,##0)";_ 117 ^RECCNT.INC 07 540 "W";WRITTEN.TO.SECONDARY.OUTPUT,"(##,###,##0)";_ 118 ^RECCNT.INC 00000540 "T";TOTAL.SECONDARY.OUTPUT,"(##,###,##0)" 118 ^RECCNT.INC 07 540 119 ^RECCNT.INC 00000540 PROGRESS.PRIMARY.FMT: FORMAT _ 120 ^RECCNT.INC 00000540 "1ary(Read/Proc/Tot):";_ 121 ^RECCNT.INC 00000545 "R";READ.FROM.PRIMARY.INPUT,"(##,###,##0)";_ 122 ^RECCNT.INC 00000554 "P";PROCESSED.FROM.PRIMARY.INPUT,"(##,###,##0)";_ 123 ^RECCNT.INC 00000563 "T";TOTAL.PRIMARY.OUTPUT,"(##,###,##0)" 124 ^RECCNT.INC 00000573 PROGRESS.SECONDARY.FMT: FORMAT _ 125 ^RECCNT.INC 00000573 "2ary(Read/Proc/Tot):";_ 126 ^RECCNT.INC 00000578 "R";READ.FROM.SECONDARY.INPUT,"(##,###,##0)";_ 127 ^RECCNT.INC 00000587 "P";PROCESSED.FROM.SECONDARY.INPUT,"(##,###,##0)";_ 128 ^RECCNT.INC 00000596 "T";TOTAL.SECONDARY.OUTPUT,"(##,###,##0)" 129 ^RECCNT.INC 000005A6 PROGRESS.PRIMARY.KEY.FMT: FORMAT _ 130 ^RECCNT.INC 000005A6 "1ary(Key)..........:";_ 131 ^RECCNT.INC 000005AB " ";KEY.FROM.PRIMARY.INPUT$ 132 ^RECCNT.INC 000005B6 .endif 133 ^RECCNT.INC 000005B6 .if EXEPASS 473 ^RECCNT.INC 000005B6 .ENDIF