Applying the power of AI to unlock your AS/400's potential, on a timeline that matters

From green screen to greenfield: Primus maps your legacy system and enables us to re‑architect, re‑design, and re‑platform your clients — insanely fast.

Partner With Us → Learn More
AS/400 (IBM iSeries) 
Edit Member ORDDSPF  Type DSPF  File QDDSSRC  Library SALESAPP
                                                           
000100 A* Display Order Screen
000200 A          R ORDERHDR
000300 A                                      CF03(03 'Exit')
000400 A                                      CF05(05 'Refresh')
000500 A                                      CF12(12 'Cancel')
000600 A            ORDER         6A  B  2 10
000700 A            CUSTNAME     30A  B  2 28
000800 A            DATE          8S 0B  2 64
000900 A          R ORDERLINES                   SFL
001000 A            LINE          3S 0O  6  2
001100 A            ITEM        10A  O  6  7
001200 A            DESC        30A  O  6 20
001300 A            QTY          5S 0O  6 53
001400 A            PRICE        7S 2O  6 60
001500 A* ----------------------------------------------------------------
001700 A          R ORDERCTL                      SFLCTL(ORDERLINES)
001800 A                                      SFLSIZ(10) SFLPAG(8)
001900 A                                      OVERLAY
002000 A                                      SFLEND(*MORE)
002100 A                                      CF09(09 'Retrieve')
002200 A            TOTAL        9S 2O 18 60
002300 A            STATUS      10A  O 20  2
002400 A* ----------------------------------------------------------------
002500 A          R FOOTER
002600 A                                      TEXT('PRINTER FILES REMOVED')
002700 A* ----------------------------------------------------------------
010000 A* 84/06/12 JMH Initial screen and header
010100 A* 85/01/03 KRS Add CF05 'Refresh' key
010200 A* 86/09/30 DLB Introduce ORDERLINES subfile (SFL)
010300 A* 87/03/14 MJJ Add TOTAL field on control
010400 A* 88/11/03 JMH Increase CUSTNAME to 30A
010500 A* 89/05/22 KRS Add STATUS output field
010600 A* 90/02/08 DLB Enable SFLEND(*MORE)
010700 A* 91/07/19 MJJ Add CF09 'Retrieve'
010800 A* 93/10/01 KRS Adjust column alignment
010900 A* 95/04/05 DLB OVERLAY for header/control
011000 A* 97/12/12 JMH Clean comments, tidy text
011100 A* 99/01/01 KRS Y2K review; DATE as 8S 0
020000 A* End of member
                                                           
===> ▉
F1=Help  F3=Exit  F5=Refresh  F12=Cancel

Edit Member ORDDSPF  Type DSPF  File QDDSSRC  Library SALESAPP
                                                           
000100 A* Display Order Screen
000200 A          R ORDERHDR
000300 A                                      CF03(03 'Exit')
000400 A                                      CF05(05 'Refresh')
000500 A                                      CF12(12 'Cancel')
000600 A            ORDER         6A  B  2 10
000700 A            CUSTNAME     30A  B  2 28
000800 A            DATE          8S 0B  2 64
000900 A          R ORDERLINES                   SFL
001000 A            LINE          3S 0O  6  2
001100 A            ITEM        10A  O  6  7
001200 A            DESC        30A  O  6 20
001300 A            QTY          5S 0O  6 53
001400 A            PRICE        7S 2O  6 60
001500 A* ----------------------------------------------------------------
001700 A          R ORDERCTL                      SFLCTL(ORDERLINES)
001800 A                                      SFLSIZ(10) SFLPAG(8)
001900 A                                      OVERLAY
002000 A                                      SFLEND(*MORE)
002100 A                                      CF09(09 'Retrieve')
002200 A            TOTAL        9S 2O 18 60
002300 A            STATUS      10A  O 20  2
002400 A* ----------------------------------------------------------------
002500 A          R FOOTER
002600 A                                      TEXT('PRINTER FILES REMOVED')
002700 A* ----------------------------------------------------------------
010000 A* 84/06/12 JMH Initial screen and header
010100 A* 85/01/03 KRS Add CF05 'Refresh' key
010200 A* 86/09/30 DLB Introduce ORDERLINES subfile (SFL)
010300 A* 87/03/14 MJJ Add TOTAL field on control
010400 A* 88/11/03 JMH Increase CUSTNAME to 30A
010500 A* 89/05/22 KRS Add STATUS output field
010600 A* 90/02/08 DLB Enable SFLEND(*MORE)
010700 A* 91/07/19 MJJ Add CF09 'Retrieve'
010800 A* 93/10/01 KRS Adjust column alignment
010900 A* 95/04/05 DLB OVERLAY for header/control
011000 A* 97/12/12 JMH Clean comments, tidy text
011100 A* 99/01/01 KRS Y2K review; DATE as 8S 0
020000 A* End of member
                                                           
===> ▉
F1=Help  F3=Exit  F5=Refresh  F12=Cancel
⬇
OrderService.cs - .NET Core
public record OrderLine(string Item, string Description, int Qty, decimal Price);
public class Order { public string Id { get; init; } = "123456"; }
public class OrderService {
public async Task<Order> GetOrderAsync(string id) {
// Map DDS (ORDDSPF) to domain model
return await _repo.GetOrderAsync(id);
}
}
⬇
Order UI - React App
← Orders / #123456 Active
🔎
Display Order
Mapped from ORDDSPF (DDS)
Order123456
Subtotal690.00
StatusActive
Order 123456
Date 2025-08-08
Customer ACME INDUSTRIES
Line Item Description Qty Price Ext
001 100-001 WIDGET-A 10 12.50 125.00
002 200-004 GIZMO-B 5 20.00 100.00
003 300-010 GADGET-C 2 50.00 100.00
004 400-222 WIDGET-PRO 7 18.00 126.00
005 500-333 ADAPTER-X 12 7.50 90.00
006 600-444 BRACKET-Z 15 4.00 60.00
007 700-555 CAP-DELUXE 3 33.00 99.00
008 800-666 HANDLE-KIT 9 11.00 99.00
009 900-777 HINGE-SET 20 2.50 50.00
Total lines: 2
Total:
225.00

Modernize and Extend AS/400 Systems

Connect legacy systems to modern infrastructure while preserving critical business logic

The AS/400 Knowledge Crisis

As AS/400 expertise becomes increasingly scarce, organizations need a way to understand, maintain, extend, and ultimately migrate their critical systems. We use Primus to bridge the knowledge gap—documenting business logic, standing up modern interfaces, and delivering extensions today while staging a clean migration off IBM i.

🔒

Preserve & Extend

Keep your stable AS/400 systems running while adding modern capabilities. No risky migrations, no business disruption.

🤖

AI-Powered Understanding

Our AI comprehends legacy COBOL code, making it accessible to modern developers and enabling rapid feature development.

🔗

Modern Integration

Connect AS/400 to cloud services, APIs, mobile apps, and modern data platforms without touching core business logic.

📚

Knowledge Preservation

Automatically document and map business logic, creating a knowledge base that outlasts retiring experts.

How Primus Transforms AS/400 Operations

A proven three-stage journey to modernization

1

DISCOVER

AI analyzes and maps your AS/400 codebase, creating comprehensive documentation

2

ENHANCE

Add modern capabilities through APIs and microservices without core changes

3

ACCELERATE

Enable rapid development with AI assistance for COBOL understanding

Key Partnership Benefits

100% Business Logic Preservation

No risk to critical operations

Rapid Time-to-Value

Start seeing benefits in weeks, not years

Knowledge Transfer

AI captures decades of embedded expertise

Modern Developer Enablement

New developers can work with legacy systems

Flexible Integration

Connect to any modern platform or service

Future-Proof Strategy

Extend system life while planning long-term

Partner with Signal Mine

Help your clients modernize their AS/400 systems without the risk and cost of migration.

Contact us at [email protected] to discuss partnership opportunities.