Applying the power of AI to modernize your clients' AS/400, on a timeline that matters

From green screen to greenfield: re‑architect, re‑design, and re‑platform your clients. Own the win.

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

Your client's AS/400 runs their business. Help them run their future.

Every day, their critical business logic sits trapped in green screens while competitors race ahead. At the same time, the developers who understand their COBOL are planning retirement.

One engine, every path

We use Primus (our patent-pending agentic AI) to handle the spectrum: today’s urgent APIs and integrations and tomorrow’s complete replatforming. Whether your client needs to extend, modernize, or fully migrate to .NET, Java, or cloud architectures, we preserve their business logic while we transform everything around it.

🧭

Choose Your Client's Path

Extend with APIs today. Modernize components tomorrow. Replatform to .NET or cloud when ready. We support every stage of their journey.

🤖

AI-Powered Translation

Our AI doesn't just read COBOL. It translates business logic to modern stacks — from RPG to React, DB2 to PostgreSQL, green screens to web apps.

⚡

Deliver Value Fast

Give your clients wins in weeks, not years. REST APIs, microservices, and cloud connections delivered quickly while we plan the larger transformation.

📚

Preserve Their Knowledge

Every line of COBOL documented. Every business rule captured. Whether extending or replatforming, nothing gets lost in translation.

The Delivery Playbook

Map. Build. Move. Powered by Primus (patent pending).


We align on outcomes with you and your client, then capture what isn’t in the code: tacit rules, exceptions, and tribal knowledge. This plan reflects how the business (and the code) actually runs. And neither you nor your client will believe how quickly this happens. Trust us.

1

ALIGN

Stakeholder and SME sessions to define outcomes, risks, constraints, and success metrics.

2

MAP

Inventory code and data, decode COBOL/DDS, capture tacit rules, and produce a dependency map and visual code diagrams.

3

PROVE

Quick wins in weeks: an API or UI pilot that delivers value and validates the approach.

4

DESIGN

Target architecture and runway: interface catalogue, data strategy, security, and ops plan.

5

BUILD

Iterative delivery of APIs, services, and UIs.

6

MOVE

Planned migrations and cutovers, data moves, and knowledge transfer with a clean handover.

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 us to unlock AS/400 value

You've spent years building trust with your clients. We can help you deepen that relationship by solving one of their toughest legacy challenges, fast.

We integrate with your team or work quietly behind the scenes.

From rapid API delivery to complete replatforming.

You own the relationship. We own the complexity.

Start here: a confidential discussion about your opportunity.

Connect: sales@signalmine.com