Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Please identify the programming language in teh below code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
maheshunni

New User


Joined: 10 Dec 2007
Posts: 2
Location: Bangalore

PostPosted: Fri Nov 14, 2008 10:42 am    Post subject: Please identify the programming language in teh below code
Reply with quote

Please identify the programming language in the below code:

Code:
GetCDSid:
If debug Then Say '..GetCDSid'
 
   CDSid = ''
  'CGI GETVAR HTTP_COOKIE (VAR COOKIE'
   parse var cookie .  'WSL-credential=' wsl ';' .
   If wsl ^='' Then
   Do
     'PIPE (end \)',
         'var wsl',
       '| spec /COOKYCHK -tsei/ 1 w 1 nw',
       '| COMMAND | ',
       '  Console | ',
      'A:      TAKE 1 | Var valid \',
      'A: | B: CASEI LOCATE 1.7  /CURRENT/  | Specs word3-* next | var cstamp \',
      'B: | C: CASEI LOCATE 13.7 /ISSUED:/  | Specs word3-* next | var istamp \',
      'C: | D: CASEI LOCATE 13.8 /EXPIRES:/ | Specs word3-* next | var estamp \',
      'D: | E: CASEI LOCATE 14.5 / 001:/    | Specs word4   next | var CDSid  \',
      'E: | stem leftovers.'
 
      Parse var cdsid . '=' cdsid
      Upper CDSid
      CDSid = Strip(CDSid)
      If cdsid = '' Then
         wsl = ''
      Else
      Do
         next_day = (SubWord(istamp,1,3) ^= SubWord(cstamp,1,3))
         ctime = Word(cstamp,4)
         itime = Word(istamp,4)
         Parse Var ctime ch ':' cm ':' cs
         Parse Var itime ih ':' im ':' is
         recheck =  (ch + next_day * 24  - ih > 2) | ,
                   ((ch + next_day * 24  - ih = 1) & (im < cm))
         If recheck Then wsl = ''
       End
    End
   If wsl = '' Then
      hdr = 'Location: 'wslurl'?back='myurl
Return
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Nov 14, 2008 11:08 am    Post subject:
Reply with quote

Hello,

Where did you find this code?

Is it currently being run? If so, describe the environment where this runs.

Are there other modules with similar code in some library?

NOTE: The duplicate topic has been "locked". Let me know if the locked topic is still needed for anything.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Fri Nov 14, 2008 11:31 am    Post subject:
Reply with quote

REXX.

O.
Back to top
View user's profile Send private message
maheshunni

New User


Joined: 10 Dec 2007
Posts: 2
Location: Bangalore

PostPosted: Fri Nov 14, 2008 12:17 pm    Post subject: Environment is VM:webgateway webserver
Reply with quote

Environment is VM:webgateway webserver
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Could we identify the called modules ... elixir1986 COBOL Programming 5 Fri Jul 14, 2017 1:53 am
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts StreamWeaver language reference chetanambi Compuware & Other Tools 1 Wed Jul 05, 2017 12:50 pm
No new posts Identify top 30 big tables or indexes... ashek15 DB2 0 Fri Jun 16, 2017 10:01 am
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us