RGS . REGISTER DEFINITIONS LGFIF . NESTED LOGICAL IF DEFINITIONS CONTR . TRIAD DEFINITIONS FORMG FORM 5,7,6,1,1,16 THIS FORM USED TO ENTER SYSGOE 44180 $(1) . LIT . N3DGXR . N3DMCL LMJ B11,N3DMP +ERR +DUMPN +N0RGSA LOCATION REGISTERS STORED +300,0 J *N3DGX1 $(2) . PSXL +0 701910 PSXT +0 701920 PSXN +0 701930 PSXD +0 . STORES SUBEXD ENTRY $(1) . XD2R . REENT PBLF ('CHT '),CHTS ('SEQNO '),SEQNO ('SUBLV '),SUBLV PALF ('COPER '),COPER ('COPND1'),COPND1 ('COPND2'),COPND2 ; 711200 ('CONRD '),CONRD ('SUBNO '),SUBNO . 711300 J *XD2 711400 XD3R . REENT PBLF ('TSX '),TXXX ('SEQNO '),SEQNO ('CRCDP '),CRCDP ('CREDP '), ; CREDP ('FDPX '),FDPX PBLF ('NEXA '),NEXA ('NEXB '),NEXA+1 ('NEXX '),NEXA+2 ; ('NEXW '),NEXA+3 PBLF ('SUBNL '),SUBNL ('SUBSC '),SUBSC ; ('CTRST '),CTRST ('FNC '),FNC PALF ('COPER '),COPER ('COPND1'),COPND1 ('COPND2'),COPND2 ; 712200 ('CONRD '),CONRD ('SUBNO '),SUBNO . 712300 S,H2 A3,EXPLOC PSX EXPLOC PSX (SUBBUF) . PRINT EXPRESSION FROM SUBBUF 712500 J *XD3 712600 XD3JR . REENT S B11,('B11D3J') S A3,('A3XD3J') PBLF ('ITVSX '),XD3J S,H2 A3,EXPLOC PSX EXPLOC L B11,('B11D3J') L A3,('A3XD3J') J *XD3J XD4R . REENT PBLF ('DC1 '),DC1X ('SEQNO '),SEQNO ('DEFNO '),DEFNO . 713000 MVW LOGBCP LGDG MVW LOGFCP LGDG+1 MVW LOOPIF LGDG+2,0,H1 MVW IFSPI LGDG+2 MVW LGLFCP LGDG+3 PALF ('LOGBCP'),LGDG ('LOGFCP'),LGDG+1 ('F31 '),F31 ; ('IFSSPI'),LGDG+2 ('IDF '),IDF ('LGLFCP'),LGDG+3 PBLF ('NEXA '),NEXA ('NEXB '),NEXA+1 ('NEXX '),NEXA+2 ; ('NEXW '),NEXA+3 J *XD4 713300 XD4AR . REENT SA A1,TA 713600 PALF ('DC1E '),(0) ('TA '),TA ('CTF51 '),CTF51 . 713700 J *XD4A 713800 XD4BR . REENT PALF ('DC2EA '),(0) . 714000 S,H2 A3,EXPLOC PSX EXPLOC J *XD4B 714200 XD5R . REENT PBLF ('USAGE '),(0) ('SEQNX '),SEQNX . SXLOC A11 A2 S A11,EXPLOC PSX EXPLOC SZ DUMPI XD5A XPBB INSERT,6 . XPT INSNO,6,*XD5,XD5A XD6R . REENT PBLF ('B3A'),0 ('STTY '),STTY ('TLOC '),TLOC . 715700 S,H2 A3,EXPLOC PSX EXPLOC J *XD6 716200 XD6AR . REENT SA A4,PSXT PBLF ('B3AB '),SENDX ('A4 '),PSXT ('TLOC '),TLOC . S,H2 B1,EXPLOC PSX EXPLOC J *XD6A XD6BR . REENT PBLF ('SEND '),SENDX ('SEQNO '),SEQNO . SX NSEQN,PSXT SZ DUMPI XD6BA XPBB F31,6 . XPT PSXT,6,*XD6B,XD6BA XD7R . REENT PBLF ('ASF '),ASFE ('SEQNO '),SEQNO ('SEQNX '),SEQNX ; ('LADEF '),LADEF PALF ('PLAT '),PLAT ('MULTC '),MULTC ('MULTO '),MULTO ; ('COUNT '),COUNT SZ DUMPI . 717200 XD7A XPBB POL,6 . 717300 XPT POLG,6,*XD7,XD7A . 717400 XD8R . REENT PBLF ('SXT '),RSBX ('SEQNX '),SEQNX ('NEXD '),NEXD S,H2 A3,EXPLOC PSX EXPLOC SX B1,DUMPI 718300 LMJ B11,N3FX06 . SAVE & LINK TO N3XINS FORTRA ('INSERT') . NAME FORTRA (3,DUMPI) . LNG, LOC FORTRA +0 FORTRA LMJ B11,N3FXRS . RESTORE. FORTRA J *XD8 719200 XD9R . REENT PBLF ('EXX '),EX1X ('SEQNX '),SEQNX . 720100 J *XD9 720200 XD9AR . REENT MVW TF51,B1 PSXN 720400 PBLF ('EXXA '),(0) ('FOUND '),PSXN ('CTF51 '),CTF51 . 720500 J *XD9A 720600 XD9BR . REENT PBLF ('EX1E '),(0) . 721000 S,H2 A3,EXPLOC PSX EXPLOC J *XD9B 721200 XD9JR . REENT L A0,XF51,B2 S A0,XD9JA L A0,XF51+1,B2 S A0,XD9JB PBLF ('EX1E '),0 ('TYPE '),XD9JA ('ITEM '),XD9JB J *XD9J XD9KR . REENT SXLOC A3 INSERT+2,0,T3 PBLF ('EX1ES '),0 S,H2 A3,EXPLOC PSX EXPLOC J *XD9K XD10R . EENT PBLF ('PSES '),EX1X ('SEQNX '),SEQNX . 721400 S,H2 A3,EXPLOC PSX EXPLOC J *XD10 721600 XD10AR . REENT SA A0,PSXT PBLF ('PSEF '),EX1X ('SEQNX '),SEQNX ('A0 '),PSXT . 721800 J *XD10A 721900 XD103R . REENT PBLF ('B3A '),0 ('MEL '),MEL ('F31 '),F31 ('CTF51 ') ; ('NOI '),NOI J XD103A XD11R . REENT SA A0,PSXN 722600 PBLF ('CNVT '),CNVT ('ENTRY '),PSXN ('OPERND'),COPND2 ; FIX M ('SEQNO '),SEQNO . 722810 L R15,INTRX,B6 S R15,XF1 L R15,FNX,B6 S R15,XF2 PBLF ('FNC '),FNC ('INTRX '),XF1 ('FNX '),XF2 J *XD11 722900 XF1 +0 XF2 +0 XD11AR . REENT PBLF ('CAR '),CAR ('SEQNO '),SEQNO . 723500 PALF ('COPER '),COPER ('COPND1'),COPND1 ('COPND2'),COPND2 ; 723600 ('MA '),MA ('MB '),MB . 723700 J *XD11A 723800 XD11SR . REENT PBLF ('SUBCRT'),SA ('NSTR '),NSTR S B2,('SVB2 ') . LENGTH OF SORTK S B3,('SVB3 ') . LENGTH OF SORT SZ DUMPI XD11SA XPBB SUSORT,6 . XPT ('SVB3 '),6,XD11SD,XD11SA XD11SD SZ DUMPI XD11SC XPBB SORTK,6 XPT ('SVB2 '),6,*XD11S,XD11SC XD11Q2 S B1,SVB1 PBLF ('LOOPNU'),LOOPNU ('B1 '),SVB1 XPBB IVSQ,6 XPBB INDVAR,6 J *XD11Q XD13R . REENT XER 40,-1 . 725100 J *XD13 725200 XD14R . REENT PALF ('SFARG '),(0) . PALF ('COPER '),COPER ('COPND1'),COPND1 ('COPND2'),COPND2 MVW FNX,B6 DUMPI MVW INTRX,B6 DUMPN MVW SFMSK,B6 PSXT PALF ('FNX '),DUMPI ('INTRX '),DUMPN ('SFMSK '),PSXT . J *XD14 XD30R . REENT XPH1 ('F30 '),1 . XPFX F30,XF30,XD30,F30J . XD40R . REENT XPH1 ('F40 '),1 . XPFX F40,XF40,XD40,F40J . XD50R . REENT XPH1 ('F50 '),1 . XPFX F50,XF50,XD50,F50J . SFDXXR S B11,SFDX1 S B6,SFDX2 L B11,SFMSK,B6 S B11,SFDX3 PALF ('SFDP '),SFDX1 ('FL30 '),FL30 ('FNC '),SFDX2 ('SFMSK '),SFDX3 . 16 L B11,SFDX1 J *SFDXX DGSTR PBLF ('GET '),GETXXX ('SEQNO '),SEQNO ('SFGT '),SFGT ; ('FNC '),FNC ('F31CT '),F31CT PBLF ('NSEQN '),NSEQN ('DOSXTF'),DOSXTF ('NOPER '),NOPER PALF ('FL30 '),FL30 ('GETF '),GETF ('POLG '),POLG ; ('GSUB '),GSUB ('ILGT '),ILGT . J *N3DGST $(2) . LGDG RES 4 SFDX1 +0 SFDX2 +0 SFDP4* J $-$ SFDX3 +0 SFDXX* J $-$ J SFDXXR N3DGST* J $-$ J DGSTR N3DGX1* J $-$ EENT J N3DGXR XD2* J $-$ EENT J XD2R XD3* J $-$ EENT J XD3R EENT XD3J* J $-$ EENT J XD3JR EENT XD4* J $-$ EENT J XD4R EENT XD4A* J $-$ EENT J XD4AR EENT XD4B* J $-$ EENT J XD4BR EENT XD5* J $-$ EENT J XD5R EENT XD6* J $-$ EENT J XD6R EENT XD6A* J $-$ EENT J XD6AR EENT XD6B* J $-$ EENT J XD6BR EENT XD7* J $-$ EENT J XD7R EENT XD8* J $-$ EENT J XD8R EENT XD9* J $-$ EENT J XD9R EENT XD9A* J $-$ EENT J XD9AR EENT XD9B* J $-$ EENT J XD9BR EENT XD9J* J $-$ EENT J XD9JR EENT XD9JA +0 EENT XD9JB +0 EENT XD9K* J $-$ EENT J XD9KR EENT XD10* J $-$ EENT J XD10R EENT XD10A* J $-$ EENT J XD10AR EENT XD103A* J $-$ EENT J XD103R EENT XD11* J $-$ EENT J XD11R EENT XD11A* J $-$ EENT J XD11AR EENT XD11S* J $-$ EENT J XD11SR EENT XD11Q* J $-$ J XD11Q2 XD13* J $-$ EENT J XD13R EENT XD14* J $-$ EENT J XD14R EENT XD30* J $-$ EENT J XD30R EENT XD40* J $-$ EENT J XD40R EENT XD50* J $-$ EENT J XD50R EENT EXPLOC +0 DX0* +0 . FILES DX1* +0 . GET DX2* +0 . CHT DX3* +0 . TSEX DX4* +0 . DC1 DX5* +0 . USAGE DX6* +0 . B3A DX7* +0 . ASF DX8* +0 . SXT DX9* +0 . EXX DX10* +0 . PSE DX11* +0 . CAR,CNVT DX12* +0 . SUBSCRIPT DX13* +0 . STATEMENTS SVB1 +0 END