GL File Transfer to mainframe custom format

Purpose To move the GL trial balance to another system.
Translates account code combination during export.
Sample  
Selections            R E P O R T    S E L E C T I O N
╔══════════════════════════════════════════════════════════╗
║                                                          ║
║ From GL Account                                          ║
║ To GL Account                                            ║
║                                                          ║
║ Company Code                             06              ║
║                                                          ║
║ Currency Code                            NZD             ║
║                                                          ║
║ Include nil balance accounts (Y/N)       N               ║
║                                                          ║
║ Accounting number (Month/Year) to date   M               ║
║                                                          ║
╚══════════════════════════════════════════════════════════╝
Sort Seq GL Account code
Filters S = Standard accounts
Group by None
Run from Alternative reports in GL, SI
Code GLFILTFR
Accounting Month or Year to Date Actual balance (credit values as negative)
Equivalent Nearest match in standard reports is GL Trial balance, or GL Account export if you have File Transfer module.
Complexity Low
Code snip                                E D I T B O D Y
│ ╔═TRAVERSE GLAccountsFile BY GLAccountsFile.AccountCodeKey═══════════════════
│ ║ PROGRESS GLAccountsFile.AccountCode                                        
│ ║ ┌─IF GLAccountsFile.Type="S"───────────────────────────────────────────────
│ ║ │ ┌─IF (BLANK(sfFromCode) OR GLAccountsFile.AccountCode >=sfFromCode) AND  
│ ║ │ │ SET wThisValue TO 0                                                    
│ ║ │ │ ┌─IF sfNumber = "M"────────────────────────────────────────────────────
│ ║ │ │ │ SET wThisValue TO OFFSETFIELD(GLAccountsFile.ThisMTD0act, 2 * GLAccou
│ ║ │ │ └──────────────────────────────────────────────────────────────────────
│ ║ │ │ ┌─IF sfNumber = "Y"───────────────────────────────┐                    
│ ║ │ │ │ SET wThisValue TO GLAccountsFile.ThisYTDBalance │                    
│ ║ │ │ └─────────────────────────────────────────────────┘                    
│ ║ │ │ ┌─IF (sfIncludeNil="N" AND wThisValue#0) OR (sfIncludeNil="Y")─┐       
│ ║ │ │ │ OUTPUT BODYLINE                                                      
│ ║ │ │ │ ADD 1 TO wKounter                                            │       
│ ║ │ │ │ ┌─IF wThisValue > 0───────────────┐                          │       
│ ║ │ │ │ │ ADD wThisValue TO wDrValue      │                          │       
│ ║ │ │ │ ├─ELSE ─                          ┤                          │       
│ ║ │ │ │ │ ADD ABS(wThisValue) TO wCrValue │                          │       
│ ║ │ │ │ └─────────────────────────────────┘                          │       
│ ║ │ │ └──────────────────────────────────────────────────────────────┘       
│ ║ │ └────────────────────────────────────────────────────────────────────────
│ ║ └──────────────────────────────────────────────────────────────────────────
│ ╚════════════════════════════════════════════════════════════════════════════
Release date 8 Nov 2001