STRPDM.COM
F*---------------------------------------------------------------*
F* PROGRAM NAME
: xxxxxx
*
F* PROGRAM DESCRIPTION:
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx *
F*
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx *
F*
xxxxxxx.
*
F* CREATED BY
: xxxxxxx xxxxxxxx
*
F* CREATE DATE
: xx/xx/xxxx
*
F*---------------------------------------------------------------*
F* MODIFICATIONS:
*
F*---------------------------------------------------------------*
F* MODIFIED BY
:
*
F* MODIFY DATE
:
*
F* MODIFICATION
:
*
F*---------------------------------------------------------------*
FQPRINT
O F 132
PRINTER
*
Report
D
DS
D TIME
1 12 0
D TIME_TIM
1 6 0 inz(0)
D TIME_DAT
7 12 0 inz(0)
D
D LineCnt
S
3 0 inz
D DASH_132
S 132
inz(*all'_')
D TTL_001
C
'** XXXXXXXXXXXXXXXXXX **'
D TTL_002
C
' XXXXXXXXXXXXXXXXXX '
D XXXXXXXXXX S
10
D FIELD01
C
'xxxxxxxxxx'
D FIELD02
C
'xxxxxxxxxx'
D FIELD03
C
'xxxxxxxxxx'
D FIELD04
C
'xxxxxxxxxx'
D FIELD05
C
'xxxxxxxxxx'
D FIELD06
C
'xxxxxxxxxx'
D FIELD07
C
'xxxxxxxxxx'
D FIELD08
C
'xxxxxxxxxx'
D FIELD09
C
'xxxxxxxxxx'
D FIELD10
C
'xxxxxxxxxx'
D FIELD11
C
'xxxxxxxxxx'
D FIELD12
C
'xxxxxxxxxx'
D
D TOTAL01
S
9 2 INZ(9999999.99)
D
D Program_Status SDS
D PR_PGMNAME
*PROC
D PR_JOBNAME
244 253
D PR_USERID
254 263
C
C*---------------------------------------------------------------*
C* MAINLINE
*
C*---------------------------------------------------------------*
C*
C
EXSR $SR001
C
C
EXSR $LINCNT
C
EXCEPT TOT_001
C
MOVE *ON
*INLR
C
RETURN
C
C*---------------------------------------------------------------*
C* xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
*
C*---------------------------------------------------------------*
C $SR001
BEGSR
C
C
EXSR $LINCNT
C
EXCEPT DTL_001
C
C
ENDSR
C*
C*----------------------------------------------------------
C* $LINCNT This routine
checks the line counter and
C*
prints report headers, as necessary.
C*----------------------------------------------------------
C*
C $LINCNT
BEGSR
C*
C
IF LineCnt > 50
C
EXCEPT HEADER
C
EVAL LineCnt = 0
C
ELSE
C
EVAL LineCnt = LineCnt + 1
C
ENDIF
C*
C
ENDSR
C*
C*
C*---------------------------------------------------------------*
C* INITIAL SETUP
*
C*---------------------------------------------------------------*
C *INZSR
BEGSR
C
C
TIME
TIME
C
C
EXCEPT HEADER
C
C
ENDSR
C
*==========================================================
* Output Specifications
*==========================================================
*----------------------------------------------------------
* QPRINT - Audit report
*----------------------------------------------------------
OQPRINT E
HEADER 1 1 01
o
PR_USERID 10
O
TTL_001
77
O
TIME_DAT Y 120
O
126 'Page'
O
PAGE Z
132
O
O
E HEADER
2
O
06 'PgmId:'
O
PR_PGMNAME +01
O
TTL_002
77
O
TIME_TIM 120 '0 :
: '
O
O
E HEADER
1
O*
'1234567890'
O
10 'XXXXXXXXXX'
O
22 'XXXXXXXXXX'
O
34 'XXXXXXXXXX'
O
46 'XXXXXXXXXX'
O
58 'XXXXXXXXXX'
O
70 'XXXXXXXXXX'
O
82 'XXXXXXXXXX'
O
94 'XXXXXXXXXX'
O
106 'XXXXXXXXXX'
O
118 'XXXXXXXXXX'
O
130 'XXXXXXXXXX'
O
O
O
E HEADER
0
O
DASH_132 132
O
O
E HEADER
1
O*
'1234567890'
O
10 'XXXXXXXXXX'
O
22 'XXXXXXXXXX'
O
34 'XXXXXXXXXX'
O
46 'XXXXXXXXXX'
O
58 'XXXXXXXXXX'
O
70 'XXXXXXXXXX'
O
82 'XXXXXXXXXX'
O
94 'XXXXXXXXXX'
O
106 'XXXXXXXXXX'
O
118 'XXXXXXXXXX'
O
130 'XXXXXXXXXX'
O*----------------------
O
E DTL_001
1
O
FIELD01
10
O
FIELD02
22
O
FIELD03
34
O
FIELD04
46
O
FIELD05
58
O
FIELD06
70
O
FIELD07
82
O
FIELD08
94
O
FIELD09 106
O
FIELD10 118
O
FIELD11 130
O*----------------------
O
E TOT_001
2 1
O
31 'Total XXXXXXXXXXXXXX:'
O
TOTAL01 J +01
O*----------------------