|
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: 6144 (0x1800)
Notes: MEMBER_S, Member_Text
Names: »#SE@RXRM«
└─⟦7674f3f85⟧ Bits:30009796 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 002 of 002
└─⟦dc667be06⟧
└─⟦this⟧ ».#SE@RXRM«
00010 ************************************************************** 00020 * THE CONSTANTS IN THE FOLLOWING SCREEN FORMATS ARE USED AS * 00030 * HEADING INFORMATION AND MAY BE CHANGED UNLESS OTHERWISE * 00040 * NOTED * 00050 ************************************************************** 00530SB V 00 00540 ************************************************************** 00550 * RPG HEADER FORMAT 'B ' ACTUALLY AN 'H' SPEC * 00560 ************************************************************** 00570DHD1COL10 1 114Y 1 00580DHD1COL11 1 116Y 1 00590DHD1COL12 1 118Y 1 00600DHD1COL15 1 122Y 1 00610DHD1COL16 1 124Y 1 00620DHD1COL17 1 126Y 1 00630DHD1COL18 1 128Y 1 00640DHD1COL19 1 130Y 1 00650DHD1COL20 1 132Y 2 00660DHD1COL21 1 134Y 2 00670DHD1COL22 1 136Y 2 00680DHD1COL23 1 138Y 2 00690DHD1COL26 1 142Y 2 00700DHD1COL27 1 144Y 2 00710DHD1COL30 19 147Y 3 3 3 3 3 3 3 3 3 3 00720DHD1COL40 1 167Y 4 00730DHD1COL41 1 169Y 4 00740DHD1COL42 9 171Y 4 4 4 4 4 00750DHD2COL1 5 202Y 01 12345 00760DHD2COL6 1 208Y 01 6 00770DHD2COL7 3 210Y 01 789 00780DHD2COL10 3 214Y 0 1 00790DHD2COL12 3 218Y 234 00800DHD2COL15 1 222Y Y 5 00810DHD2COL16 1 224Y 01 6 00820DHD2COL17 1 226Y 01 7 00830DHD2COL18 1 228Y 01 8 00840DHD2COL19 1 230Y 9 00850DHD2COL20 1 232Y 0 00860DHD2COL21 1 234Y 01 1 00870DHD2COL22 1 236Y 01 2 00880DHD2COL23 3 238Y 01 345 00890DHD2COL26 1 242Y 6 00900DHD2COL27 4 244Y 01 7890 00910DHD2COL31 1 249Y 01 1 00920DHD2COL32 1 251Y 01 2 00930DHD2COL33 1 253Y 01 3 00940DHD2COL34 1 255Y 01 4 00950DHD2COL35 1 257Y 01 5 00960DHD2COL36 1 259Y 01 6 00970DHD2COL37 1 261Y 7 00980DHD2COL38 1 263Y 01 8 00990DHD2COL39 1 265Y 01 9 01000DHD2COL40 1 267Y 01 0 01010DHD2COL41 1 269Y Y 1 01020DHD2COL42 1 271Y 01 2 01030DHD2COL43 1 273Y 3 01040DHD2COL44 1 275Y 01 4 01050DHD2COL45 1 277Y 5 01060DHD2COL46 1 279Y 01 6 01070DDA1COL1 5 302Y Y Y 01Y 01080 ************************************************************** 01090 * THE H IN COLUMN 6 IS A FORCED CONSTANT AND SHOULD NOT * 01100 * BE CHANGED. * 01110 ************************************************************** 01120DDA1COL6 1 30802 Y Y 01Y H 01130DDA1COL7 3 310Y Y Y 01Y 01140DDA1COL10 1 314Y Y Y Y Y 01150DDA1COL11 1 316Y Y Y Y 01160DDA1COL12 3 318Y Y Y Y 01170DDA1COL15 1 322Y YN Y Y 01180DDA1COL16 1 324Y Y Y 01Y 01190DDA1COL17 1 326Y Y Y 01Y 01200DDA1COL18 1 328Y Y Y 01Y 01210DDA1COL19 1 330Y Y Y Y 01220DDA1COL20 1 332Y Y Y Y 01230 ************************************************************** 01240 * THE BLANK IN COLUMN 21 IS TRANSLATABLE, I OR J ARE * 01250 * VALUES FOR COLUMN 21 ON THE RPG H SPEC. IN WORLD TRADE. * 01260 ************************************************************** 01270DDA1COL21 1 33402 Y Y 01Y 01280DDA1COL22 1 336Y Y Y 01Y 01290DDA1COL23 3 338Y Y Y 01Y 01300DDA1COL26 1 342Y Y Y Y 01310DDA1COL27 4 344Y Y Y 01Y 01320DDA1COL31 1 349Y Y Y 01Y 01330DDA1COL32 1 351Y Y Y 01Y 01340DDA1COL33 1 353Y Y Y 01Y 01350DDA1COL34 1 355Y Y Y 01Y 01360DDA1COL35 1 357Y Y Y 01Y 01370DDA1COL36 1 359Y Y Y 01Y 01380DDA1COL37 1 361Y Y Y Y 01390DDA1COL38 1 363Y Y Y 01Y 01400DDA1COL39 1 365Y Y Y 01Y 01410DDA1COL40 1 367Y Y Y 01Y 01420DDA1COL41 1 369Y YN Y Y 01430DDA1COL42 1 371Y Y Y 01Y 01440DDA1COL43 1 373Y Y Y Y 01450DDA1COL44 1 375Y Y Y 01Y 01460DDA1COL45 1 377Y Y Y Y 01470DDA1COL46 1 379Y Y Y 01Y 01480DHD3COL47 1 502Y 4 01490DHD3COL48 1 504Y 4 01500DHD3COL49 1 506Y 4 01510DHD3COL50 1 508Y 5 01520DHD3COL51 1 510Y 5 01530DHD3COL52 1 512Y 5 01540DHD3COL54 1 515Y 5 01541D************************************************************** 01542D* BEGIN CHANGES FOR RELEASE 5.5 PRPQ * 01543D************************************************************** 01544DHD3COL55 1 517Y 5 01545DHD3COL56 1 519Y 5 01546DHD3COL57 1 521Y 5 01547DHD3COL58 1 523Y 5 01550DHD3COL60 1 525Y 6 01560DHD3COL70 1 535Y 7 01570DHD3COL75 6 541Y 7 8 01580DHD3COL81 11 548Y 8 9 01581D************************************************************** 01582D* END CHANGES FOR RELEASE 5.5 PRPQ * 01583D************************************************************** 01590DHD4COL47 1 602Y 01 7 01600DHD4COL48 1 604Y Y 8 01610DHD4COL49 1 606Y 01 9 01620DHD4COL50 1 608Y 01 0 01630DHD4COL51 1 610Y 01 1 01640DHD4COL52 2 612Y Y 23 01641D************************************************************** 01642D* BEGIN CHANGES FOR RELEASE 5.5 PRPQ * 01643D************************************************************** 01644DHD4COL54 1 615Y Y 4 01645DHD4COL55 1 617Y 5 01646DHD4COL56 1 619Y Y 6 01650DHD4COL57 1 621Y 01 7 01650DHD4COL58 17 623Y Y 89012345678901234 01660DHD4COL75 6 641Y 567890 01670DHD4COL81 16 648Y 1234567890123456 01671D************************************************************** 01672D* END CHANGES FOR RELEASE 5.5 PRPQ * 01673D************************************************************** 01680DDA2COL47 1 702Y Y Y 01Y 01690DDA2COL48 1 704Y YN Y Y 01700DDA2COL49 1 706Y Y Y 01Y 01710DDA2COL50 1 708Y Y Y 01Y 01720DDA2COL51 1 710Y Y Y 01Y 01730DDA2COL52 2 712Y YN B Y Y 01731D************************************************************** 01732D* BEGIN CHANGES FOR RELEASE 5.5 PRPQ * 01733D************************************************************** 01740DDA2COL54 1 715Y Y Y Y 01741DDA2COL55 1 717Y YA Y 01742DDA2COL56 1 719Y Y Y Y 01740DDA2COL57 1 721Y Y 01Y 01740DDA2COL58 17 723Y Y Y Y 01750DDA2COL75 6 741Y Y Y Y 01760DDA2COL81 16 748Y Y Y Y 01761D************************************************************** 01762D* END CHANGES FOR RELEASE 5.5 PRPQ * 01763D************************************************************** 12960 **************************************************************