|
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: 4352 (0x1100)
Notes: MEMBER_P, Member_Text
Names: »RPGSEU «
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦a01802bb8⟧
└─⟦this⟧ ».RPGSEU «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGS'********************** ******************************************************************************* * * * CHANGE ACTIVITY * * * * 07/06/84 CC6169 Add Full Screen Editor checking * * 03/13/85 P73508 Take out Full Screen Editor checking - * * CJG this procedure should always call SEU, * * even if the Full Screen Editor (DSU) is * * installed on the system * * * ******************************************************************************* // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB ************************************************************* * THIS PROCEDURE CANNOT BE RUN FROM THE JOBQ OR BE EVOKED * ************************************************************* // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ ***IFF PROC-FSE IFF PROC-SEU #ERR 1064,3,RPG IF FSE/SEU NOT ON SYSTEM // IFF PROC-SEU #ERR 1064,3,RPG IF SEU NOT ON SYSTEM // IFF ?1?/ GOTO PUTPARMS // HELP RPGSEU,?1?,?2'R'?,?3?,?4'96'?,?5'?CLIB?'? // RETURN ***************************************************************************** * THE FOLLOWING OCL CHECKS ALL PAREMETERS FOR VALID VALUES AND IF SO * * STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL DATA * * AREA (SEE LAYAOUT OF LDA UNDER RPGCALSO). EACH PARAMETER IS * * PROCESSED AS SHOWN BELOW: * * * * PARAMETER RESULTS * * INVALID -----> ISSUE PROPER ERROR VIA * * #ERR WITH 0 AND 3 OPOTIONS. * * 0 RESPONSE MEANS CONTINUE * * WITH DEFAULT SUBSTITUTED * * AND STORED IN LDA. * * VALID -----> STORE IN LDA * * * ***************************************************************************** // TAG PUTPARMS // * 1044 // IFF ?2'R'?/R IFF ?2?/A IFF ?2?/P #ERR 1056,03,RPG ?2F'R'? // IFF ?3?/ IFF LOAD-'?3?,?5'?CLIB?'?' IFF LOAD-'?3?,#LIBRARY' + #ERR 1059,03,RPG ?3F'#SE@XTRA'? // IF ?4?/ GOTO SKIP // IF ?2?/P IFF ?4'120'?>39 #ERR 1058,03,RPG ?4F'120'? // ELSE IF ?2?/P IFF 121>?4'120'? #ERR 1058,03,RPG ?4F'120'? // IFF ?2?/P IFF ?4'96'?>79 #ERR 1047,03,RPG ?4F'96'? // ELSE IFF ?2?/P IFF 97>?4'96'? #ERR 1047,03,RPG ?4F'96'? // TAG SKIP // IFF ?5?/ IFF DATAF1-?5? #ERR 1060,03,RPG ?5F'?CLIB?'? ***************************************************************** * STORE THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LDA * ***************************************************************** // LOCAL OFFSET-1,DATA-'RPGSEU',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-95,DATA-'?2?',AREA-SYSTEM // LOCAL OFFSET-129,DATA-'?3?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-96,DATA-'?4?',BLANK-3,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?5'?CLIB?'?',BLANK-8,AREA-SYSTEM ************************************************************* * SAVE THE LOCAL AREA IN PARAMETERS 59 AND 60 * ************************************************************* // EVALUATE P58='?L'1,128'?' // EVALUATE P59='?L'129,128'?' // EVALUATE P60='?L'257,128'?' ************************************************************* * DISPLAY MEMBER VIA SEU PROCEDURE * ************************************************************* ***IF PROC-FSE FSE *ALL ***ELSE SEU *ALL SEU *ALL ************************************************************* * RESTORE THE LOCAL AREA * ************************************************************* // LOCAL OFFSET-1,DATA-'?58?',BLANK-384,AREA-SYSTEM // LOCAL OFFSET-129,DATA-'?59?',AREA-SYSTEM // LOCAL OFFSET-257,DATA-'?60?',AREA-SYSTEM // RETURN ******************************************************************************* * * * RPGS NAME,TYPE,FORMAT,LENGTH,INLIB * * * * THIS PROCEDURE ENABLES THE USER TO CREATE OR UPDATE AN RPG/AUTO * * REPORT SOURCE MEMBER VIA SEU. * * * * * * * * * * THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING: * * * * NAME - SOURCE MEMBER NAME, REQUIRED * * TYPE - LIBRARY MEMBER TYPE, DEFAULT - R * * FORMAT - FORMAT MEMBER NAME, (OPTIONAL) * * LENGTH - SOURCE STATEMENT LENGTH (OPTIONAL), DEFAULT - 96 FOR TYPE R,A * * - 120 FOR TYPE P * * INLIB - INPUT LIBRARY NAME, DEFAULT - CURRENT LIBRARY * * * *******************************************************************************
0x0000…0001 0xd0 0x0001…0051 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGS'********************** « 0x0051…0052 0xd0 0x0052…00a2 »******************************************************************************* « 0x00a2…00a3 0x81 0x00a3…00a4 »*« 0x00a4…00a5 0x4d 0x00a5…00a6 0x82 0x00a6…00a8 »* « 0x00a8…00a9 0x81 0x00a9…00aa »*« 0x00aa…00ab 0x02 0x00ab…00ac 0x8f 0x00ac…00bb »CHANGE ACTIVITY« 0x00bb…00bc 0x3c 0x00bc…00bd 0x82 0x00bd…00bf »* « 0x00bf…00c0 0x81 0x00c0…00c1 »*« 0x00c1…00c2 0x4d 0x00c2…00c3 0x82 0x00c3…00c5 »* « 0x00c5…00c6 0x81 0x00c6…00c7 »*« 0x00c7…00c8 0x05 0x00c8…00c9 0x88 0x00c9…00d1 »07/06/84« 0x00d1…00d2 0x02 0x00d2…00d3 0x86 0x00d3…00d9 »CC6169« 0x00d9…00da 0x02 0x00da…00db 0x9f 0x00db…00fa »Add Full Screen Editor checking« 0x00fa…00fb 0x17 0x00fb…00fc 0x82 0x00fc…00fe »* « 0x00fe…00ff 0x81 0x00ff…0100 »*« 0x0100…0101 0x05 0x0101…0102 0x88 0x0102…010a »03/13/85« 0x010a…010b 0x02 0x010b…010c 0x86 0x010c…0112 »P73508« 0x0112…0113 0x02 0x0113…0114 0xa6 0x0114…013a »Take out Full Screen Editor checking -« 0x013a…013b 0x10 0x013b…013c 0x82 0x013c…013e »* « 0x013e…013f 0x81 0x013f…0140 »*« 0x0140…0141 0x05 0x0141…0142 0x83 0x0142…0145 »CJG« 0x0145…0146 0x0f 0x0146…0147 0xa6 0x0147…016d »this procedure should always call SEU,« 0x016d…016e 0x10 0x016e…016f 0x82 0x016f…0171 »* « 0x0171…0172 0x81 0x0172…0173 »*« 0x0173…0174 0x17 0x0174…0175 0xa7 0x0175…019c »even if the Full Screen Editor (DSU) is« 0x019c…019d 0x0f 0x019d…019e 0x82 0x019e…01a0 »* « 0x01a0…01a1 0x81 0x01a1…01a2 »*« 0x01a2…01a3 0x17 0x01a3…01a4 0x97 0x01a4…01bb »installed on the system« 0x01bb…01bc 0x1f 0x01bc…01bd 0x82 0x01bd…01bf »* « 0x01bf…01c0 0x81 0x01c0…01c1 »*« 0x01c1…01c2 0x4d 0x01c2…01c3 0x82 0x01c3…01c5 »* « 0x01c5…01c6 0xd0 0x01c6…0216 »******************************************************************************* « 0x0216…0217 0xa8 0x0217…023f »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB« 0x023f…0240 0x28 0x0240…0241 0xbd 0x0241…027e »*************************************************************« 0x027e…027f 0x13 0x027f…0280 0x81 0x0280…0281 »*« 0x0281…0282 0x02 0x0282…0283 0xb7 0x0283…02ba »THIS PROCEDURE CANNOT BE RUN FROM THE JOBQ OR BE EVOKED« 0x02ba…02bb 0x02 0x02bb…02bc 0x81 0x02bc…02bd »*« 0x02bd…02be 0x13 0x02be…02bf 0xbd 0x02bf…02fc »*************************************************************« 0x02fc…02fd 0x13 0x02fd…02fe 0xa5 0x02fe…0323 »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x0323…0324 0x2b 0x0324…0325 0x9a 0x0325…033f »// MSG ?WS?,?M'2100,1,75'?« 0x033f…0340 0x36 0x0340…0341 0x89 0x0341…034a »// RETURN« 0x034a…034b 0x47 0x034b…034c 0x8c 0x034c…0358 »// TAG NJOBQ« 0x0358…0359 0x44 0x0359…035a 0xac 0x035a…0386 »***IFF PROC-FSE IFF PROC-SEU #ERR 1064,3,RPG« 0x0386…0387 0x08 0x0387…0388 0x98 0x0388…03a0 »IF FSE/SEU NOT ON SYSTEM« 0x03a0…03a1 0x04 0x03a1…03a2 0x9f 0x03a2…03c1 »// IFF PROC-SEU #ERR 1064,3,RPG« 0x03c1…03c2 0x15 0x03c2…03c3 0x94 0x03c3…03d7 »IF SEU NOT ON SYSTEM« 0x03d7…03d8 0x08 0x03d8…03d9 0x99 0x03d9…03f2 »// IFF ?1?/ GOTO PUTPARMS« 0x03f2…03f3 0x37 0x03f3…03f4 0xb1 0x03f4…0425 »// HELP RPGSEU,?1?,?2'R'?,?3?,?4'96'?,?5'?CLIB?'?« 0x0425…0426 0x1f 0x0426…0427 0x89 0x0427…0430 »// RETURN« 0x0430…0431 0x47 0x0431…0432 0xcd 0x0432…047f »*****************************************************************************« 0x047f…0480 0x03 0x0480…0481 0x81 0x0481…0482 »*« 0x0482…0483 0x02 0x0483…0484 0xc2 0x0484…04c6 »THE FOLLOWING OCL CHECKS ALL PAREMETERS FOR VALID VALUES AND IF SO« 0x04c6…04c7 0x07 0x04c7…04c8 0x81 0x04c8…04c9 »*« 0x04c9…04ca 0x03 0x04ca…04cb 0x81 0x04cb…04cc »*« 0x04cc…04cd 0x02 0x04cd…04ce 0xc2 0x04ce…0510 »STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL DATA« 0x0510…0511 0x07 0x0511…0512 0x81 0x0512…0513 »*« 0x0513…0514 0x03 0x0514…0515 0x81 0x0515…0516 »*« 0x0516…0517 0x02 0x0517…0518 0xa9 0x0518…0541 »AREA (SEE LAYAOUT OF LDA UNDER RPGCALSO).« 0x0541…0542 0x02 0x0542…0543 0x91 0x0543…0554 »EACH PARAMETER IS« 0x0554…0555 0x0d 0x0555…0556 0x81 0x0556…0557 »*« 0x0557…0558 0x03 0x0558…0559 0x81 0x0559…055a »*« 0x055a…055b 0x02 0x055b…055c 0x99 0x055c…0575 »PROCESSED AS SHOWN BELOW:« 0x0575…0576 0x30 0x0576…0577 0x81 0x0577…0578 »*« 0x0578…0579 0x03 0x0579…057a 0x81 0x057a…057b »*« 0x057b…057c 0x4b 0x057c…057d 0x81 0x057d…057e »*« 0x057e…057f 0x03 0x057f…0580 0x81 0x0580…0581 »*« 0x0581…0582 0x09 0x0582…0583 0x89 0x0583…058c »PARAMETER« 0x058c…058d 0x19 0x058d…058e 0x87 0x058e…0595 »RESULTS« 0x0595…0596 0x19 0x0596…0597 0x81 0x0597…0598 »*« 0x0598…0599 0x03 0x0599…059a 0x81 0x059a…059b »*« 0x059b…059c 0x0a 0x059c…059d 0x87 0x059d…05a4 »INVALID« 0x05a4…05a5 0x04 0x05a5…05a6 0x86 0x05a6…05ac »----->« 0x05ac…05ad 0x0d 0x05ad…05ae 0x96 0x05ae…05c4 »ISSUE PROPER ERROR VIA« 0x05c4…05c5 0x0d 0x05c5…05c6 0x81 0x05c6…05c7 »*« 0x05c7…05c8 0x03 0x05c8…05c9 0x81 0x05c9…05ca »*« 0x05ca…05cb 0x28 0x05cb…05cc 0x9b 0x05cc…05e7 »#ERR WITH 0 AND 3 OPOTIONS.« 0x05e7…05e8 0x08 0x05e8…05e9 0x81 0x05e9…05ea »*« 0x05ea…05eb 0x03 0x05eb…05ec 0x81 0x05ec…05ed »*« 0x05ed…05ee 0x28 0x05ee…05ef 0x99 0x05ef…0608 »0 RESPONSE MEANS CONTINUE« 0x0608…0609 0x0a 0x0609…060a 0x81 0x060a…060b »*« 0x060b…060c 0x03 0x060c…060d 0x81 0x060d…060e »*« 0x060e…060f 0x28 0x060f…0610 0x98 0x0610…0628 »WITH DEFAULT SUBSTITUTED« 0x0628…0629 0x0b 0x0629…062a 0x81 0x062a…062b »*« 0x062b…062c 0x03 0x062c…062d 0x81 0x062d…062e »*« 0x062e…062f 0x28 0x062f…0630 0x92 0x0630…0642 »AND STORED IN LDA.« 0x0642…0643 0x11 0x0643…0644 0x81 0x0644…0645 »*« 0x0645…0646 0x03 0x0646…0647 0x81 0x0647…0648 »*« 0x0648…0649 0x0a 0x0649…064a 0x85 0x064a…064f »VALID« 0x064f…0650 0x06 0x0650…0651 0x86 0x0651…0657 »----->« 0x0657…0658 0x0d 0x0658…0659 0x8c 0x0659…0665 »STORE IN LDA« 0x0665…0666 0x17 0x0666…0667 0x81 0x0667…0668 »*« 0x0668…0669 0x03 0x0669…066a 0x81 0x066a…066b »*« 0x066b…066c 0x4b 0x066c…066d 0x81 0x066d…066e »*« 0x066e…066f 0x03 0x066f…0670 0xcd 0x0670…06bd »*****************************************************************************« 0x06bd…06be 0x03 0x06be…06bf 0x8f 0x06bf…06ce »// TAG PUTPARMS« 0x06ce…06cf 0x41 0x06cf…06d0 0x89 0x06d0…06d9 »// * 1044« 0x06d9…06da 0x47 0x06da…06db 0xbc 0x06db…0717 »// IFF ?2'R'?/R IFF ?2?/A IFF ?2?/P #ERR 1056,03,RPG ?2F'R'?« 0x0717…0718 0x14 0x0718…0719 0xc0 0x0719…0759 »// IFF ?3?/ IFF LOAD-'?3?,?5'?CLIB?'?' IFF LOAD-'?3?,#LIBRARY' +« 0x0759…075a 0x10 0x075a…075b 0x9f 0x075b…077a »#ERR 1059,03,RPG ?3F'#SE@XTRA'?« 0x077a…077b 0x31 0x077b…077c 0x8a 0x077c…0786 »// IF ?4?/« 0x0786…0787 0x02 0x0787…0788 0x89 0x0788…0791 »GOTO SKIP« 0x0791…0792 0x3b 0x0792…0793 0xb6 0x0793…07c9 »// IF ?2?/P IFF ?4'120'?>39 #ERR 1058,03,RPG ?4F'120'?« 0x07c9…07ca 0x1a 0x07ca…07cb 0xbc 0x07cb…0807 »// ELSE IF ?2?/P IFF 121>?4'120'? #ERR 1058,03,RPG ?4F'120'?« 0x0807…0808 0x14 0x0808…0809 0xb5 0x0809…083e »// IFF ?2?/P IFF ?4'96'?>79 #ERR 1047,03,RPG ?4F'96'?« 0x083e…083f 0x1b 0x083f…0840 0xba 0x0840…087a »// ELSE IFF ?2?/P IFF 97>?4'96'? #ERR 1047,03,RPG ?4F'96'?« 0x087a…087b 0x16 0x087b…087c 0x8b 0x087c…0887 »// TAG SKIP« 0x0887…0888 0x45 0x0888…0889 0xb8 0x0889…08c1 »// IFF ?5?/ IFF DATAF1-?5? #ERR 1060,03,RPG ?5F'?CLIB?'?« 0x08c1…08c2 0x18 0x08c2…08c3 0xc1 0x08c3…0904 »*****************************************************************« 0x0904…0905 0x0f 0x0905…0906 0x81 0x0906…0907 »*« 0x0907…0908 0x02 0x0908…0909 0xba 0x0909…0943 »STORE THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LDA« 0x0943…0944 0x03 0x0944…0945 0x81 0x0945…0946 »*« 0x0946…0947 0x0f 0x0947…0948 0xc1 0x0948…0989 »*****************************************************************« 0x0989…098a 0x0f 0x098a…098b 0xb3 0x098b…09be »// LOCAL OFFSET-1,DATA-'RPGSEU',BLANK-8,AREA-SYSTEM« 0x09be…09bf 0x1d 0x09bf…09c0 0xb2 0x09c0…09f2 »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x09f2…09f3 0x1e 0x09f3…09f4 0xa9 0x09f4…0a1d »// LOCAL OFFSET-95,DATA-'?2?',AREA-SYSTEM« 0x0a1d…0a1e 0x27 0x0a1e…0a1f 0xb2 0x0a1f…0a51 »// LOCAL OFFSET-129,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x0a51…0a52 0x1e 0x0a52…0a53 0xb1 0x0a53…0a84 »// LOCAL OFFSET-96,DATA-'?4?',BLANK-3,AREA-SYSTEM« 0x0a84…0a85 0x1f 0x0a85…0a86 0xba 0x0a86…0ac0 »// LOCAL OFFSET-419,DATA-'?5'?CLIB?'?',BLANK-8,AREA-SYSTEM« 0x0ac0…0ac1 0x16 0x0ac1…0ac2 0xbd 0x0ac2…0aff »*************************************************************« 0x0aff…0b00 0x13 0x0b00…0b01 0x81 0x0b01…0b02 »*« 0x0b02…0b03 0x02 0x0b03…0b04 0xab 0x0b04…0b2f »SAVE THE LOCAL AREA IN PARAMETERS 59 AND 60« 0x0b2f…0b30 0x0e 0x0b30…0b31 0x81 0x0b31…0b32 »*« 0x0b32…0b33 0x13 0x0b33…0b34 0xbd 0x0b34…0b71 »*************************************************************« 0x0b71…0b72 0x13 0x0b72…0b73 0x9c 0x0b73…0b8f »// EVALUATE P58='?L'1,128'?'« 0x0b8f…0b90 0x34 0x0b90…0b91 0x9e 0x0b91…0baf »// EVALUATE P59='?L'129,128'?'« 0x0baf…0bb0 0x32 0x0bb0…0bb1 0x9e 0x0bb1…0bcf »// EVALUATE P60='?L'257,128'?'« 0x0bcf…0bd0 0x32 0x0bd0…0bd1 0xbd 0x0bd1…0c0e »*************************************************************« 0x0c0e…0c0f 0x13 0x0c0f…0c10 0x81 0x0c10…0c11 »*« 0x0c11…0c12 0x02 0x0c12…0c13 0xa0 0x0c13…0c33 »DISPLAY MEMBER VIA SEU PROCEDURE« 0x0c33…0c34 0x19 0x0c34…0c35 0x81 0x0c35…0c36 »*« 0x0c36…0c37 0x13 0x0c37…0c38 0xbd 0x0c38…0c75 »*************************************************************« 0x0c75…0c76 0x13 0x0c76…0c77 0x97 0x0c77…0c8e »***IF PROC-FSE FSE *ALL« 0x0c8e…0c8f 0x39 0x0c8f…0c90 0x90 0x0c90…0ca0 »***ELSE SEU *ALL« 0x0ca0…0ca1 0x40 0x0ca1…0ca2 0x88 0x0ca2…0caa »SEU *ALL« 0x0caa…0cab 0x48 0x0cab…0cac 0xbd 0x0cac…0ce9 »*************************************************************« 0x0ce9…0cea 0x13 0x0cea…0ceb 0x81 0x0ceb…0cec »*« 0x0cec…0ced 0x02 0x0ced…0cee 0x96 0x0cee…0d04 »RESTORE THE LOCAL AREA« 0x0d04…0d05 0x23 0x0d05…0d06 0x81 0x0d06…0d07 »*« 0x0d07…0d08 0x13 0x0d08…0d09 0xbd 0x0d09…0d46 »*************************************************************« 0x0d46…0d47 0x13 0x0d47…0d48 0xb3 0x0d48…0d7b »// LOCAL OFFSET-1,DATA-'?58?',BLANK-384,AREA-SYSTEM« 0x0d7b…0d7c 0x1d 0x0d7c…0d7d 0xab 0x0d7d…0da8 »// LOCAL OFFSET-129,DATA-'?59?',AREA-SYSTEM« 0x0da8…0da9 0x25 0x0da9…0daa 0xab 0x0daa…0dd5 »// LOCAL OFFSET-257,DATA-'?60?',AREA-SYSTEM« 0x0dd5…0dd6 0x25 0x0dd6…0dd7 0x89 0x0dd7…0de0 »// RETURN« 0x0de0…0de1 0x47 0x0de1…0de2 0xd0 0x0de2…0e32 »******************************************************************************* « 0x0e32…0e33 0x81 0x0e33…0e34 »*« 0x0e34…0e35 0x4d 0x0e35…0e36 0x82 0x0e36…0e38 »* « 0x0e38…0e39 0x81 0x0e39…0e3a »*« 0x0e3a…0e3b 0x05 0x0e3b…0e3c 0xa2 0x0e3c…0e5e »RPGS NAME,TYPE,FORMAT,LENGTH,INLIB« 0x0e5e…0e5f 0x26 0x0e5f…0e60 0x82 0x0e60…0e62 »* « 0x0e62…0e63 0x81 0x0e63…0e64 »*« 0x0e64…0e65 0x4d 0x0e65…0e66 0x82 0x0e66…0e68 »* « 0x0e68…0e69 0x81 0x0e69…0e6a »*« 0x0e6a…0e6b 0x05 0x0e6b…0e6c 0xbf 0x0e6c…0eab »THIS PROCEDURE ENABLES THE USER TO CREATE OR UPDATE AN RPG/AUTO« 0x0eab…0eac 0x09 0x0eac…0ead 0x82 0x0ead…0eaf »* « 0x0eaf…0eb0 0x81 0x0eb0…0eb1 »*« 0x0eb1…0eb2 0x05 0x0eb2…0eb3 0x9d 0x0eb3…0ed0 »REPORT SOURCE MEMBER VIA SEU.« 0x0ed0…0ed1 0x2b 0x0ed1…0ed2 0x82 0x0ed2…0ed4 »* « 0x0ed4…0ed5 0x81 0x0ed5…0ed6 »*« 0x0ed6…0ed7 0x4d 0x0ed7…0ed8 0x82 0x0ed8…0eda »* « 0x0eda…0edb 0x81 0x0edb…0edc »*« 0x0edc…0edd 0x4d 0x0edd…0ede 0x82 0x0ede…0ee0 »* « 0x0ee0…0ee1 0x81 0x0ee1…0ee2 »*« 0x0ee2…0ee3 0x4d 0x0ee3…0ee4 0x82 0x0ee4…0ee6 »* « 0x0ee6…0ee7 0x81 0x0ee7…0ee8 »*« 0x0ee8…0ee9 0x4d 0x0ee9…0eea 0x82 0x0eea…0eec »* « 0x0eec…0eed 0x81 0x0eed…0eee »*« 0x0eee…0eef 0x04 0x0eef…0ef0 0xb5 0x0ef0…0f25 »THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING:« 0x0f25…0f26 0x14 0x0f26…0f27 0x82 0x0f27…0f29 »* « 0x0f29…0f2a 0x81 0x0f2a…0f2b »*« 0x0f2b…0f2c 0x4d 0x0f2c…0f2d 0x82 0x0f2d…0f2f »* « 0x0f2f…0f30 0x81 0x0f30…0f31 »*« 0x0f31…0f32 0x04 0x0f32…0f33 0xa3 0x0f33…0f56 »NAME - SOURCE MEMBER NAME, REQUIRED« 0x0f56…0f57 0x26 0x0f57…0f58 0x82 0x0f58…0f5a »* « 0x0f5a…0f5b 0x81 0x0f5b…0f5c »*« 0x0f5c…0f5d 0x04 0x0f5d…0f5e 0xa7 0x0f5e…0f85 »TYPE - LIBRARY MEMBER TYPE, DEFAULT - R« 0x0f85…0f86 0x22 0x0f86…0f87 0x82 0x0f87…0f89 »* « 0x0f89…0f8a 0x81 0x0f8a…0f8b »*« 0x0f8b…0f8c 0x04 0x0f8c…0f8d 0xa7 0x0f8d…0fb4 »FORMAT - FORMAT MEMBER NAME, (OPTIONAL)« 0x0fb4…0fb5 0x22 0x0fb5…0fb6 0x82 0x0fb6…0fb8 »* « 0x0fb8…0fb9 0x81 0x0fb9…0fba »*« 0x0fba…0fbb 0x04 0x0fbb…0fbc 0xc6 0x0fbc…1002 »LENGTH - SOURCE STATEMENT LENGTH (OPTIONAL), DEFAULT - 96 FOR TYPE R,A« 0x1002…1003 0x03 0x1003…1004 0x82 0x1004…1006 »* « 0x1006…1007 0x81 0x1007…1008 »*« 0x1008…1009 0x39 0x1009…100a 0x90 0x100a…101a »- 120 FOR TYPE P« 0x101a…101b 0x04 0x101b…101c 0x82 0x101c…101e »* « 0x101e…101f 0x81 0x101f…1020 »*« 0x1020…1021 0x04 0x1021…1022 0xb5 0x1022…1057 »INLIB - INPUT LIBRARY NAME, DEFAULT - CURRENT LIBRARY« 0x1057…1058 0x14 0x1058…1059 0x82 0x1059…105b »* « 0x105b…105c 0x81 0x105c…105d »*« 0x105d…105e 0x4d 0x105e…105f 0x82 0x105f…1061 »* « 0x1061…1062 0xd0 0x1062…10b2 »******************************************************************************* « 0x10b2…10b3 0x00 0x10b3…10c0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆*************┆ 0x10c0…10e0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆********************************┆ 0x10e0…1100 5c 5c 5c 5c 5c 5c 5c 5c 5c 13 81 5c 02 96 d9 c5 e2 e3 d6 d9 c5 40 e3 c8 c5 40 d3 d6 c3 c1 d3 40 ┆********* a* oRESTORE THE LOCAL ┆