Paragraph Name: GL.BALANCES
PA
* GENERAL LEDGER BALANCES FOR A SPECIFIC MONTH
* WRITTEN BY BOB STUBBS, DATA MANAGEMENT SERVICES, 05 FEB 01
CLEARPROMPTS
CS
DISPLAY
DISPLAY GENERAL LEDGER BALANCES FOR A SPECIFIC MONTH
DISPLAY --------------------------------------------
DISPLAY
DISPLAY <<A,ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>>
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = 'END' THEN GO EXIT
DISPLAY
DISPLAY <<A,DO YOU WISH TO CONTINUE (Y/N)?>>
IF <<DO YOU WISH TO CONTINUE (Y/N)?>> # 'Y' THEN GO EXIT
SP-ASSIGN HS!RECALL.GL.BALANCES
TERM ,,,0
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '1' THEN GO 1
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '2' THEN GO 2
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '3' THEN GO 3
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '4' THEN GO 4
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '5' THEN GO 5
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '6' THEN GO 6
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '7' THEN GO 7
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '8' THEN GO 8
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '9' THEN GO 9
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '10' THEN GO 10
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '11' THEN GO 11
IF <<ENTER DESIRED MONTH NUMBER (I.E. JANUARY = 1)>> = '12' THEN GO 12
1:
SORT GEN.L BY @ID ACCT.NAME JAN.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF JANUARY 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
2:
SORT GEN.L BY @ID ACCT.NAME FEB.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF FEBRUARY 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
3:
SORT GEN.L BY @ID ACCT.NAME MAR.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF MARCH 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
4:
SORT GEN.L BY @ID ACCT.NAME APR.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF APRIL 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
5:
SORT GEN.L BY @ID ACCT.NAME MAY.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF MAY 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
6:
SORT GEN.L BY @ID ACCT.NAME JUN.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF JUNE 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
7:
SORT GEN.L BY @ID ACCT.NAME JUL.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF JULY 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
8:
SORT GEN.L BY @ID ACCT.NAME AUG.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF AUGUST 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
9:
SORT GEN.L BY @ID ACCT.NAME SEP.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF SEPTEMBER 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
10:
SORT GEN.L BY @ID ACCT.NAME OCT.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF OCTOBER 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
11:
SORT GEN.L BY @ID ACCT.NAME NOV.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF NOVEMBER 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
12:
SORT GEN.L BY @ID ACCT.NAME DEC.BAL HEADING "GENERAL LEDGER\
BALANCES 'L'FOR THE MONTH OF DECEMBER 'L'AS OF 'D'\
'L'PARAGRAPH NAME: GL.BALANCES 'L'" NI.SUP LPTR
GO EXIT:
EXIT:
WHICH
CS
END.OF.YR.BAL
I
EXTRACT(@RECORD,6,0,0)
MD2,
END OF YR BAL
13R
S
JAN.BAL
I
END.OF.YR.BAL + (EXTRACT(@RECORD,10,1,0))
MD2,
JANUARY BAL
15R
S
FEB.BAL
I
JAN.BAL + (EXTRACT(@RECORD,10,2,0))
MD2,
FEBRUARY BAL
15R
S
MAR.BAL
I
FEB.BAL + (EXTRACT(@RECORD,10,3,0))
MD2,
MARCH BAL
15R
S
APR.BAL
I
MAR.BAL + (EXTRACT(@RECORD,10,4,0))
MD2,
APRIL BAL
15R
S
MAY.BAL
I
APR.BAL + (EXTRACT(@RECORD,10,5,0))
MD2,
MAY BAL
15R
S
JUN.BAL
I
MAY.BAL + (EXTRACT(@RECORD,10,6,0))
MD2,
JUNE BAL
15R
S
JUL.BAL
I
JUN.BAL + (EXTRACT(@RECORD,10,7,0))
MD2,
JULY BAL
15R
S
AUG.BAL
I
JUL.BAL + (EXTRACT(@RECORD,10,8,0))
MD2,
AUGUST BAL
15R
S
SEP.BAL
I
AUG.BAL + (EXTRACT(@RECORD,10,9,0))
MD2,
SEPTEMBER BAL
15R
S
OCT.BAL
I
SEP.BAL + (EXTRACT(@RECORD,10,10,0))
MD2,
OCTOBER BAL
15R
S
NOV.BAL
I
OCT.BAL + (EXTRACT(@RECORD,10,11,0))
MD2,
NOVEMBER BAL
15R
S
DEC.BAL
I
NOV.BAL + (EXTRACT(@RECORD,10,12,0))
MD2,
DECEMBER BAL
15R
S
ACCT.NAME
D
2
ACCOUNT NAME
40T
S