|
|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »DEB280XX«
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦2c22cec32⟧
└─⟦this⟧ ».DEB280XX«
// MSG ?WS?,Rykkerk¦rsel er startet // MEMBER USER1-KUNMSG // SWITCH 00000000 **** TILF@JET 21/1 87 PS **** // IF ?M'9550,1,1'?/L SWITCH XXXX1XXX // LOAD DEB280 // PRINTER NAME-RYKKER,FORMSNO-STDF,ALIGN-YES // FILE NAME-SYSCTL,LABEL-AS.SYSCL,DISP-SHRRM // FILE NAME-PROGTXT,LABEL-AS.PGTXT,DISP-SHRRM // FILE NAME-KUNDEVAL,LABEL-AS.KUVAL,DISP-SHR // FILE NAME-DPOS1,LABEL-AS.DPOS1,DISP-SHR // RUN // IF SWITCH6-1 MSG ?WS?,Den dato ?1? (for rykkerk¦rsel) findes ikke i kalenderen. // IF SWITCH7-1 MSG ?WS?,Rykkerdato ?1? er nyere end dags dato. // IF SWITCH8-1 MSG ?WS?,Rykkerdato ?1? er mere end 3 uger gammel. // IF SWITCH-XXXXX000 MSG ?WS?,Rykkerk¦rsel er normalt afsluttet. // ELSE MSG ?WS?,* * * Rykkerk¦rsel er cancelled - pr¦v igen med rigtig dato. * * *