Post External Journals

Menu GLMNUT01 Data Transfer.

 

 GL25LODCL                 PACIOLI/400 Power Ledger         QPADEV0005 mm/dd/yy

 PROMPT               Financial Management System (FMS)     UUUUUUUUUU hh:mm:ss

 Rel. 99-02B                External Journal Load                              

                                                                               

                                                                               

                                                                                

 External Library name  . :                                                    

                                                                               

 External file set name . :    GLDATA                                           

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

 F3=Exit   F12=Cancel                                                          

                                                                               

 

Create the file set in your “External Library” with the commands:

===> CRTDUPOBJ OBJ(GLDATA*) FROMLIB(FMSGLDTA) OBJTYPE(*FILE) TOLIB(yourlibname) DATA(*NO)

===> DLTF FILE(yourlibname/GLDATAJ)

===> DLTF FILE(yourlibname/GLDATAT)

Batch Journal Entry Interface

Batch entry of journals from other applications is done using the file set GLDATA as a basis.  Once the journal has been loaded into the copy of GLDATA, call program GL25CL with the following parameters:

 

CALL    GL25CL      PARM(XXTOGL   CLEAR   ALIGN   COPIES   CPI   FONT   FORMNO   HOLD   LINES   LPI   OUTQ   PRTY   QUALITY   SOURCE)

NOTE: Libraries FMSGLDTA and FMSGLPGM must be in your library list, as well as the library containing your copy of the GLDATA* files.

 

Parameter

Type

Description

xxtogl

char(10)

Name of the file set containing the General Ledger Journals.  The file set should be like GLDATA*.  The files must be in the library list at the time you call GL25CL.

clear

char(10)

Allowed values -- SCRATCH, *NO

ALIGN

char(4)

Use *NO

COPIES

char(2)

Use 01

cpi

char(4)

Use 10

FONT

char(10)

Use *CPI

formno

char(10)

Use *STD

hold

char(4)

Hold printer output.  Allowed values -- *YES, *NO

lines

char(3)

Use 066

LPI

char(1)

Use 6

outq

char(10)

Name of OutQueue for printer output.  Use *JOB for default.

prty

char(1)

Reserved.  Use 5

quality

char(10)

Use *DEVD

source

char(10)

Use *GLDATA.  Allowed values -- *GLDATA, *TEMGEN

 

File GLDATAJJ Layout

FILE - GLDATAJJ  *FILE   PF     LIBRARY - FMSGLDTA     G/L External Journal Data - Journal Header

 

        DATE CREATED - 99/03/04

        CREATED BY   - FMSOWNER   - FMSOWNER Profile for FMS and SPD

        RECORD FORMAT- JJ         LEVEL ID- 5366F1C334916 - Journal Header

        RECORD SIZE  -    69      NUMBER FIELDS -    12

 

        LOGICAL FILES

        LIBRARY/FILE NAME      LOGICAL KEYS

        ---------------------  ------------

 

      U FMSGLDEMO/GLDATAJJ     COMNO JVTYP JVNUM JVSUF JVLIN

      U FMSGLDEMO/GLDATA       COMNO JVTYP JVNUM JVSUF JVLIN COMNO JVTYP JVNUM

                                JVSUF JVLIN

 

 

BEG

END

NAME

DESCRIPTION

OPTIONAL

LENGTH

DEC

A/S/P

 

1

1

RECID

Record Code "J"

N

1

 

A

 

2

4

COMNO

Company Number

(Include leading zeroes; must be a defined Company.)

N

3

 

A

 

5

6

JVTYP

Journal Type

(Must be a defined Journal Type.)

N

2

 

A

 

7

9

JVNUM

Journal Number

(Enter zero for automatically numbered Journal Types.  Enter valid number (must not already exist) for manually numbered Journal Types.)

N

4

0

P

 

10

10

JVSUF

Journal Sub-Type

(Blank for “normal” journals; “A” for accrual journals.)

Y

1

 

A

 

11

14

JVLIN

Journal Line Number

(Must be zero.)

N

7

2

P

 

15

18

PERNO

Journal Period (YYYYPP – If zero, defaults to the current period.  Can be period 12 or 13 of prior year if the current period is within first 6 periods of the current year.  For current year, the range for periods is 01 up to the current period plus 5 (not to exceed 12, or 13).)

Y

6

0

P

 

19

48

JVDSC

Journal Description

(Enter something meaningful.)

N

30

 

A

 

49

53

JDATE

Date of Journal

(YYYYMMDD)

N

8

0

P

 

54

60

JVCTL

Control Total Amount

(Sum of all Debits.  Leave as zero to have application determine the control total, or enter the known control total for the edit checking.)

N

13

2

P

 

61

68

JVACT

Account # Hash Total

(Not used.  Enter zero.)

Y

15

0

P

 

69

69

JSTAT

Journal Status

(Not used.  Enter blank.)

Y

1

 

A

 

    *** END OF REPORT ***

File GLDATATT Layout

FILE - GLDATATT  *FILE   PF     LIBRARY - FMSGLDTA     G/L External Journal Data - Journal Detail

 

        DATE CREATED - 99/03/04

        CREATED BY   - FMSOWNER   - FMSOWNER Profile for FMS and SPD

        RECORD FORMAT- TT         LEVEL ID- 44C94DC3C21F2 - Journal Detail Record

        RECORD SIZE  -   158      NUMBER FIELDS -    20

 

        LOGICAL FILES

        LIBRARY/FILE NAME      LOGICAL KEYS

        ---------------------  ------------

 

      U FMSGLDEMO/GLDATATT     COMNO JVTYP JVNUM JVSUF JVLIN

      U FMSGLDEMO/GLDATA       COMNO JVTYP JVNUM JVSUF JVLIN

 

 

BEG

END

NAME

DESCRIPTION

OPTIONAL

LENGTH

DEC

A/S/P

 

1

1

RECID

Record Code "T"

N

1

 

A

 

2

4

COMNO

Company Number

(Must be the same as the Journal Header record.)

N

3

 

A

 

5

6

JVTYP

Journal Type

(Must be the same as the Journal Header record.)

N

2

 

A

 

7

9

JVNUM

Journal Number

(Must be the same as the Journal Header record.)

N

4

0

P

 

10

10

JVSUF

Journal Sub-Type

(Must be the same as the Journal Header record.)

N

1

 

A

 

11

14

JVLIN

Journal Line Number

(Number serially starting with 1.00 or 0.01.)

N

7

2

P

 

15

29

GLNNR

G/L Account Code

(Right adjust, zero fill.)

N

15

 

A

 

30

49

JREFN

Reference

(Optional, but does show in reports.)

Y

20

 

A

 

50

56

JVAMT

Amount

(Plus or minus amount (debit or credit).)

N

13

2

P

 

57

57

JLSTA

Line Status

(Not used.  Enter blank.)

Y

1

 

A

 

58

58

JLMOD

Standard Line Modification

(Not used.  Enter blank.)

Y

1

 

A

 

59

88

JLDSC

Journal Transaction Description

(Optional, but does show in reports.)

Y

30

 

A

 

89

91

BTRN

Batch Record Number

(Stored, but only shows in Journal Entry Detail view.)

Y

5

0

P

 

92

101

ENNO

Entity Number

(Stored, but only shows in Journal Entry Detail view.)

Y

10

 

A

 

102

103

ENTP

Entity Type

(Stored, but only shows in Journal Entry Detail view.)

Y

2

 

A

 

104

118

INNO

Invoice Number

(Stored, but only shows in Journal Entry Detail view.)

Y

15

 

A

 

119

128

CKNO

Check Number

(Stored, but only shows in Journal Entry Detail view.)

Y

10

 

A

 

129

138

PONO

Purchase Order Number

(Stored, but only shows in Journal Entry Detail view.)

Y

10

 

A

 

139

148

MONO

Mfg Order Number

(Stored, but only shows in Journal Entry Detail view.)

Y

10

 

A

 

149

158

NOTE

Notes Reference

(Stored, but only shows in Journal Entry Detail view.)

Y

10

 

A

 

    *** END OF REPORT ***